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(54) Automation of the design recovery and forward engineering of legacy applications 

(57) A method of recovering design information of a — 
legacy application program 3A comprising translating 
the legacy application program into tokens representing 
elements of the program, and automatically rewriting 
the legacy application program using the tokens to 
define elements to be included in the rewritten program. 
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« Srogl IXs:^ Wi ' h an ° ther emb0dimen, • 3 meth ° d * Nation of a legacy application 

(a) parsing an application program to obtain plural parsed program parts 

i iatSe P ' Ural ,0k6nS WhiCh ^ C ° mm0n ,0 Simi ' ar ,UnCti ° nin9 Pr °^ P"* - various computer languages in 
Srpt rdaTaSeTnr *"* * C ° rreSP ° ndin9 ^ * *» ~ n ^ in ,he and storing 

BRIEF DESHRIPTinM nr THE DRAWING 

[OdO] A better understanding of the invention will be obtained by a consideration of the detailed description below, 
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in conjunction with the following drawings, in which: 



Figure 1 is a block diagram of the preferred embodiment of the invention, 

Figure 2 is a block diagram of a preferred embodiment of an engineering interface which is used in the embodiment 
5 of Figure 1, 

Figure 3 is a representation of a portion of a data model, 

Figure 4 is a representation of portions of the data model that represents navigator data structures in more detail, 
and 

Figure 5 is a screenshot of a tree view for the preferred embodiment of the invention. 

10 

DETAILED DESCRIPTION OF A PREFERRED EMBODIMENT 



[001 1] A glossary of terms used in the description below follows: 



15 ANSI 
API 

Application - 

Application Metadata 
20 Borland Interbase 

COBOL 
Data Model 

25 Data Structure 

Grammar 

Legacy Application Program 
30 LEX 
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Metadata 
ODBC 

Oracle RDBMS 

Parser 

PL/SQL 



40 PowerHouse 
RDBMS 

Relational Database 
Repository 

45 Reverse Engineering 

SQL 
Symbol 
Token 
so Transaction 



Tree View 
User Interface 
Visual Basic 
YACC 



55 



American National Standards Institute 
Application Programmatic Interface 

A series of inter-related programs which, when used together, automate a solution for 
a business problem 

Data which describes the objects and methods of an application 
A Commercial Relational Database Management System owned by the company cur- 
rently known as Borland 
Common Business Oriented Language 

A representation of the data structures and relationships between these data struc- 
tures which describe a business application 

One or more data elements in a particular data relationship usually used to describe 
some entity 

A syntactical representation of a programming language 

An older application (usually written in a third generation language which automates a 
business function or functions 

A commercially available software application which is used to tokenize strings in a 
human readable text file(s) (Lexical Analyzer) 
Data which describes the structures in a database 
Open Database Connectivity 

A Commercial Relational Database Management System owned by the company cur- 
rently known as Oracle Corporation 

A computer program which is used to break down the grammar of a particular compu- 
ter programming language 

A computer programming language known as Procedure Language Structures Query 

Language commercially owned by Oracle Corporation . 

A fourth generation programming language owned by Cognos Corporation 

Relational Database Management System 

A data base constructed out of normalized data structures 

A relational database used to store the metadata and application metadata of a busi- 
ness computer application 

The process of decomposing the objects and methods which make up a computer pro- 
gram into a format easily understandable by a person 
Structures Query Language 
A numeric representation of an entity 
An individual object in a repository 

The logical grouping of objections on a database that can be performed or undone 
against a relational database 

A user interface which operates on the same principals as Microsoft Explorer™ inter- 
face 

A computer display operated by the user of an application to facilitate the usage of the 
application 

A computer language owned by Microsoft Corporation that is used to build Windows 
Based Applications 

Yet another Compiler Compiler. A program which aides in the development of compu- 
ter parsers usually coupled with the grammar of a computer language. 
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[0012] Turning to Figure 1 , a parser 1 A is used to break out the various parts of a legacy application proqram 3A 
Indeed, , ,s preferred that plural parsers 1 A - 1 N should be used in the invention, each one corresponding to a d^ereit 
program language, e.g. COBOL, PowerHouse, Interbase, ANSI SQL, etc. Thus programs 3A - 3N wSn any source 
legacy language may be parsed by a corresponding parser. wnnen in any source 

5 SI JT! 1 ParS6r Tu" 16 ' egaCy a PP |ication P r °9 ram . and accesses a corresponding knowledge base 5A - 5M 
ZlT l ? * ngUa9e ' ^' Ch S re > resentations ° f "mrnand and option available in the source program Ian 
guage, i.e. .ts grammar', to enable it to parse a program having source code written in its language. The legacy code 
s thus decomposed ,nto individual objects and their associated methods, based on the knowledge base 
[0014] The objects, methods and business rules generated by the parser are in the form of standard tokens for all 

10 parsers, which can be also considered intermediate fi,es which are readable by the appHca.ion interface ARand which 

ard toklr in 6 ™^ ,nterfaCeS * 9 (L * The Stores « he ^ 

To^ Z^rT m 3 S ! P , ara,e da,3baSe for ^ PartiCU ' ar te9acy pr °9 ram which has been P^sed. The parsed 
! m pa ' ,s are thus ma PP ed to corresponding ones of plural common tokens in the repository. 

is ive I L TJlT ab ° Ve iS '^n 6 ^ W8y °' mapping the program parts t0 corresponding common tokens, alterna- 

S ,T Can . 9enerate f " eS ° r W ° rdS Which ' When a PP ,ied t0 the databa se, are stored as pointers to specifc 
standard tokens which have already been prestored. yu'"iers ro speciric 

[0016] It is an important aspect of the invention that common tokens are used for all legacy languages These com- 

a m «io n n o I 8 * ^ * * 3 docJZtJSTnS. 

at.on of the legacy program wrth modification, and for creation of a new program in the same language as the leaacv 
20 program or in a d.fferent language than the legacy program, to provide the same tasks the legacy ap'plSon was deve. 

[0017] An engineering interface 13 stored on another computer (or on the same server) is coupled to the database 9 

a am TZ^ TT* S ^ aPP "' Ca,i ° n *"* ^ ? ' ThiS a "° WS a user t0 access the ^ specific to a o o 
n Znn fy ' ° ba,n thS S, ° red da,a ,0 pr0vide ,0 another a PP |ication design program 17 (eg Oracle 
langC ' * ' W °' t0 Create a new appLbn program in a di£i« 

[0018] Thus under control of a user, the engineering interface accesses the desired legacy application proqram 

iSS? 8 " 9 " Wind ° W 1 5« endS te t0kenS t0 f0rWard en9ineerin9 pr09 ™ 17 a " S command? no 
a7o a oaSlr n, ^ "T"' * " Can be ins,mcted b * the a P plica « on ^signer to modify 

Parameter (su f h as a «"° di 9 H d a»e indicator token to four digits), while creating a new application pro- 
gram using the same design rules indicated by the common tokens used in the translated legacy application The new 
appl.cat.on program can be ,n the legacy language, resulting in the automatic correction of the date in the legacy appt 
cation program to avoid the "year 2000" problem described earlier. As the newly reconstituted program is betng c^ed 

L ts™ tT ^ ^ ^ enQineerin9 imerfaCe 13 f ° r CheCkin9 the recreated tokens gainst S3 
rected °' 9 '° ^ ' egaCy aPPNCati ° n ' S ° that 6rr0rs in tne recrealed P ra 9ram can be cor 

[0019] Thus the common tokens are used in a relational database where the tokens represent common elements 

Sso o eflrlf ^ 3 T T? °' Pr ° 9ramS - ^ dat3baSe 9 < rep ° Sit0r V> ™™V 8 ™* -ly storeT he to" 

mpthoH? h V S , a " 0f , ,he kn ° Wled9e databaSeS ' me ap P ,ication P ro 9 r a m interface 5 functions, and the objects 
methods and business rules of a legacy or new program. J 

EpJI 8 3PP f a,i0n ' ront end can also access th e record or database related to a particular legacy program and 
• d ««oT e ' g by P rov,d,n 9 adls P ,a y or printout of menu-related hierarchy of prog^ 
[0021] In respect of parsers relating to particular languages- 

Suaae ( PDlftfJ Pn h l?H WerH °R Se Pa , rS6r , iS C ° mPriSed ° f f0Uf sub "P arser ^ ^'^9 the PowerHouse Dictionary Lan- 
pZ m 4 c PowerHouse Re P° rtln 9 lan 9 ua ge (QUIZ), the PowerHouse batch update language (OTP) and the 

used to m U a S n e th° r p S M 9Ua9e , <QDESIGN) - ^ ° f th6Se sub - |an 9-ges includes a separate kLtad e baseCis 
used to map the PowerHouse language to the API 5. 

I°r!, 23 n 7n e C0B ° L fI Ser Sh ° Uld r9VerSe en9ineer ANSI C0B0L code includin 9 M not limited to) the Working Stor- 
2 a6 F °7 n and Pra f dure Divisi ons as well as the application logic coded in the legacy application 
S-^ ' egaCy ba sed applications that use Borland interbase as a database manager, the Borland Interbase 
QDML Parser is preferred to be used to recover the design from databases using this technology. The parser is capable 

tZ^ B^ ^T!^ ^ be d6fined " 3 B ° rland ' n,erbaSe SChema includin9 but not^ toTSS 
.ona, ables, Relational F.elds, Indexes, Index Segments, Triggers, Procedures as well as Database Views 

Lof P a lTJh 9a .H k PP J' 0 "' ,hat ANS ' SQL data definiti0n lan 9 ua 9 e to c reate their legacy RDBMS, an ANSI 
SQL Parser should be used to recover the design from databases using this technology. The parser should parse a 

lESS 8 ??* J' de !l ned ln 3 ANS ' SQL SChSma indUding Rela,ional tab ^ s ' Rela 'iona. Fields, fnde es 
Index Segments, Triggers, Procedures as well as Database Views. 
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[0026] The common dialect of the present embodiment is a language referred to herein as the Chameleon API. The 
primary purpose of each language parser is to read the legacy source application file and to re-write the legacy code 
into the Chameleon API language. Once this has been completed, the re-written module is then loaded into the repos- 
itory using the front end (loader) 7. 
5 [0027] The heart of this embodiment is the database 9 repository. This is the area in which all the application and 
database objects, methods and business rules generated is physically housed. 

[0028] The database 9 repository stores information and business rules for business and data services, as well as 
user interface and appearance control for user services. This environment independent information is preferably stored 
in an ODBC compliant design database and is intended to be used when building an application. The use of an open 
w repository enables iterative design and reuse and meets multi-developer requirements. Code is generated from design 
information in the database 9 repository. 

[0029] The results of the design activities include a data model, business rules and design information and application 
preferences which are stored in the database 9 repository. 

[0030] A database metadata 1 9 section of the database 9 repository is used to store the data definition attributes of 
15 the legacy application. This area of the database 9 repository preferably stores information about the following objects: 

Nodes 

Database Roles 
Databases 
20 Domain Drop Downs 
Domains 

Element Drop Downs 
Element Permissions 
Elements 
25 Index Segments 
Indexes 
Lookup Tables 
Relation Elements 
Relation Permissions 
~30 Relations 



[0031] An application Metadata 21 section of the repository is used to store the objects, methods and business rules 
associated with the legacy application. This area of the database 9 repository stores information about the following 
objects: 
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Sequences 
Stores Procedures 
Structures 

Template Drop Downs 

Templates 

Trigger Elements 

Triggers 

User Roles 

Users 

View Sources 
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Assignment 
Blob 

Block of Code 
Called Module 
Node 

Node Element 
Node List 
Node Select 
Node Sort 
Comment 
Condition 
Condition Detail 
Coordinate 
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Core Function 
Core Function Xref 
Core Message 



Cross Reference 
5 Cursor 

Cursor Key 
Database Update 
Event 

Event Detail 
io External 

Field Property 
Field Value 
Function 
Highlight 
- 15 Highlight Detail 
Index Segment 
Legacy Source 
Literal 
Log File 
20 Lookup 
Message 
Method 
Module 
Object 
25 Panel 

Panel Graph 
Passing List 
Procedure 
Procedure Detail 
30 Project 

Project Directory 
Receiving List 
Relation 

Relation Access Field 
35 Relation Accesses 

Relation Field 

Relation Index 

Report Section Table 

Report Tables 
40 Screen Property 

Sort Option 

Stack 

Stack Detail 
Stored Procedure 
45 Suminto Operation 
Transaction 
Transaction Relation 
User 
Variable 



50 



55 API Functions 
API Parameters 
Element Usages 
Functions 
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Function Inputs 

Function Options 

Function Results 

General Terms 
5 General Term Keywords 

General Term Keyword Options 

Keywords 

Keyword Options 

Keyword Option Defaults 
10 Procedures , 

Procedure Options 

Verbs 

Verb Options 
Table Types 
15 Table Values 

[0033] The primary responsibility of the API loader 7 is to load the intermediary files created by the parsers into the 
database 9 repository. Each API loader script that is read and parsed should be checked for correctness and validated 
against the data already loaded. If any conflicts arise, the entire transaction should be rolled back and an error written 
20 to a log file. Otherwise, the API loader creates the appropriate objects for the database 9 repository. 

[0034] The engineering interface 13 is for use by application developers to navigate around the various objects and 
methods of the application; to report on, analyze as well as to refine the extracted business information housed by the 
database 9 repository. A more detailed block diagram of the preferred form of engineering interface is shown in Figure 
2. 

25 [0035] A database navigator 25 is preferably a Microsoft Explorer™ style interface to the objects that make up the data 
dictionary and physical database of the legacy application. This interface allows the developer to drill to detail on objects 
such as relational tables, database views, stored procedures as well as triggers. In addition to the navigational capabil- 
ities of this interface, it allows the developer to enhance and modify the underlying physical structure of the database 
by adding, deleting and modifying the attributes that make up the database component of the legacy application. 

30 [0036] Similar to the database navigator, an application navigator 27"allows the developer to drill down on the func- 
tional modules that make up the application including Screens, Reports and Batch Processes. Using this interface the 
developer, analysts and end users can quickly pinpoint objects located within the module and make any adjustments 
necessary. This component also preferably includes an editor, which allows you to view the business rules expressed 
in your application in, for example, a Microsoft style notepad editor. 

35 [0037] If the legacy application contains a menu style interface, the engineering interface preferably automatically rec- 
reates this system to display or print the hierarchy of the application. This allows IT developers and business users to 
quickly navigate to the module they need to see at the click of a button. 

[0038] An impact analysis module 29 should provide features that allow assessment of the impacts of making 
changes to the existing and new application. This modules should include an impact analysis navigator as well as pro- 
40 vide a number of standard reports that allow review of the impacts based on any object in the database repository. This 
should include for example the ability to assess the impact of removing database fields, the ability to determine any bot- 
tlenecks that may be present in the current application, etc. 

[0039] Because the design recovery process has been automated, the speed at which the information is loaded into 
the repository is only limited by the speed of the hardware on which this invention operates. In addition, because lan- 
45 guage specific parsers are used, they must understand the complete grammar of the legacy source language in order 
for the process to be successful. Because of this, all the important objects, methods and business rules coded in the 
legacy application should be captured. 

[0040] A forward engineering application 31 is preferably used to rebuild the legacy application, and forward engineer 
reports, screens and batch processes to a number of computing platforms including PL/SQL, Visual Basic and Dynamic 
so C modules for batch processes. 

[0041] An application designer 1 7 bridge is preferably also used to load the application directly into Oracle's Designer 
2000, once the legacy application has been loaded into the database repository 9. 

[0042] All of the elements 25, 27, 29, 31 and 1 3 interface the application front end 7 and its window 1 7, to access the 
database 9 depository. 

55 [0043] The invention can be operated on a server preferably comprised of an IBM compatible computer which uses 
a Pentium I ™ or Pentium II ™ processor, to which 128 MB of random access memory is coupled, and to which a hard 
disk drive (or equivalent) is also coupled comprising at least 1 GB of memory space, and on which the programs Win- 
dows 95 ™ or Windows NT ™ and Oracle ™ 7 or 8 are resident. The repository containing the parsers, knowledge base, 



7 



EP 0 990 983 A1 



API application front end are stored on the hard disk drive. The engineering interface can be operated by a similar com- 
puter which is in communication with the server, the engineering interface being comprised preferably of at least a Pen- 
tium I " or Pentium II ™ processor to which 64 MB of random access memory is.coupled, and a hard disk drive (or 
equivalem) wrth at least 1 GB of memory space. The latter computer preferab.y also should have Windows 95 or win- 
dows NT 4.0 resident on its hard disk drive. However, other computers and programs can be used, as long as they are 
capable of carrying out the methods described herein. 



EXAMPLE 



[0044] The following is a detailed example of processing of a typical PowerHouse source language program file The 
example provided represents a typical, but simplified version of a PowerHouse QUIZ program 
SS*?c h T ["k eXamP *' e u Pr ° VideS f ° Ur QUIZ commands - The first statement indicated that a table named ORDER in the 
oALES database is to be read. The second statement is the definition of a variable called D_DISCOUNT that is used 
to calculate a 7% discount on all orders over $10,000. The third statement is used to identify the information to be 
printed on the report while the last statement is used to identify the compiled name of the program. 

A. SAMPLE QUIZ SOURCE CODE 

ACCESS ORDER IN SALES ALIAS SALES_98 

[0046] 

DEFINE DJ3ISCOUNT NUMERIC * 7 = & 

(ORDER_AMT* (7/100)) & 

IF ORDER_AMT > 10000 ELSE 0 

REPORT ORDER JD ORDER_AMT D_DISCOUNT 

BUILD ORDERREP 

[0047] The following follows the above example through the various processes that have been described above. 
3. KNOWLEDGE BASE DATA/STRUCTURES 

L°° a 4 HHL E r^ ParS f ' iS Crea,ed Pre,erably USin9 Yet An ° ther Compi,er Com P iler ( YACC > and * Lexical Analyser (Lex) 
n addition to these two components, the parsers should incorporate a third component, a knowledge base (KB) to store 
the mapping of the keywords that make up the various commands in the source language as well as to map to the appli- ■ 
cation programmatic interface (API) functions and parameters that are to be invoked once a grammar rule in YACC has 
oeen processed. 

[0049] The following section describes four of the main tables that make up the KB. 
B.1 KB KEYWORD 

C T ? 6 £ BKEYW ° RD teble is used to store a " ^ command keywords in the PowerHouse source language. In 
this example, there are four command keywords present; ACCESS, DEFINE REPORT BUILD 

Ei\^ KBKE r? )R ? I*? 6 iS US6d 10 St0re 3 " ,he keyWOrdS availabl ^ in Powerhouse and is made up of three 
fields, Yacc_Keyword_Symbol, Keyword_Name and Lookahead_Token. Each of these fields is described as follows: 

Yacc_Keyword_Symbol:This field stores the actual command symbol used in the YACC grammar specification These 
correspond to the %token commands specified in the grammar file. 

Keyword_Name: This field stores contains the actual string found in the legacy source code of the keyword that 
will be mapped by the Lexical Analyser (Lex). This field is actually used to lookup the token 
returned by Lex against the KBKeyword table. Once a valid match is encountered the 
Yacc_Keyword_Symbol is returned to Yacc by Lex. 

Lookahead.Token: This field stores a symbol which represents whether the next token after the keyword is read is 
an identifier or not. 
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Yacc_Key word_Sy m bo I 


Keyword_Name 


Lookahead_Token 


K_ACCESS 


Access 


IDENTIFIER 



B.2 KBKEYWORD OPTION 

w [0052] The KBKEYWORD_OPTION table is used to store all the keyword options available in the PowerHouse source 
language for a particular command keyword. In this example, the ACCESS statement contains a keyword option called 
ALIAS. 

Yacc_Keyword_Symbol:This field stores the actual keyword symbol used in the YACC grammar specification. 

15 .- 

Yacc_Option_Symbol: This field stores the actual keyword option symbol used in the YACC grammar specifications 
that represents an option on a command keyword. 

Keyword_Name: This field contains a string representing the Powerhouse Keyword option that is read by Lex. 
20 This field is actually used to lookup the token returned by Lex against the KBKeyword_Option 

table. Once a valid match is encountered, the Yacc_Option_Symbol is returned to Yacc by Lex. 

Lookahead_Token: This field stores a symbol which represents whether the next token after the keyword option is 
read is an identifier or not. 

25 
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Yacc Keyword Symbol 


Yacc Option Symbol 


Keyword Option 


Lookahead Token 


K.ACCESS 


ALIAS 


Alias 


IDENTIFIER 


K.ACCESS 


ANDX 


And 


NOTIDENT 


K.ACCESS 


IN 


In 


NOTIDENT . 


K_ACCESS 


LINK 


Link 


NOTIDENT 


K.ACCESS 


OF 


Of 


IDENTIFIER 


K_ACCESS 


OPTIONAL 


Optional 


NOTIDENT 


K_ACCESS 


RECORD . 


Record 


NOTIDENT 


K_ACCESS 


TO 


To 


NOTIDENT 


K.ACCESS 


VIAINDEX 


Viaindex 


NOTIDENT 



B.3 KBAPLFUNCTION 

45 

[0053] The KBAPLFUNCTION table is used to store a mapping of all the API functions that can be called by the 
Parser. This table is made up of two fields; Api_Function_Symbol and API_Function_Name. Each of these fields are 
described as follows: 

so Api_Function_Symbol: This field stores the actual function symbol used in the API specification. This is the actual field 
that is used to lookup against this table. 
Api_Function_Name: This field stores the name of the API function that is to be invoked by the parser once a gram- 
mar rule has been processed. 

55 
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Api_Function_Symbol 


Api_Function_Name 


J3PACCESS 


iu_rpaccess 



B.4 KBAPI_PARAMETER 



ApLFunction.Symbol, APLParameter_Symbol 
Api_ParameterJMame1 and ApLParameter_Name2, 

" ^^^^^^^^^^ 

A^LP^JW:™. ,„„,„„ pa„ m e.„n™ 8Mistebereu ,, nea , olteYACCgiamniar 
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Api Function Symbol 



_RPACCESS 



_RPACCESS 



_RPACCESS 



_RPACCESS 



.RPACCESS 



J3PACCESS 



_RPACCESS 



_RPACCESS 



_RPACCESS 



.RPACCESS 
.RPACCESS 



_RPACCESS 



^RPACCESS 



_RPACCESS 
_RPACCESS 



_RPACCESS 
_RPACCESS 



Api Parameter Symbol 



_ACCESS_NAME 



_ALIASJ\IAME 



_AUTOCOMMIT_FLAG 



_AUTOLINK_FLAG 



Api Parameter Namel 



p_access_name 



p_alias_name 



p_autocommit flag 



_BACKWARDS_FLAG 



.DATABASE 



_GENERIC_FLAG 



JNDEXJMAME 



_LINKAGE_TYPE 
NAME 



p^autoiinkjlag 



p_backwards_ flag 



p_database_name 



P_generic_flag 



p_index_name 



OPTIONAL_FLAG 
_ORDER_TYPE_CODE 



_ORDERED_FLAG 



pjinkagejype code 



p_relation_name 



p_optional_flag 



_PHYSICAL_NAME 



_SEQUENTIAL_FLAG 



JJNIQUE_FLAG 



_WARNING_FLAG 



p_order_type code 
p_ordered_flag 



P_physical_name 
p_sequential flag 



p_unique_flag 



Api Parameter Name2 



p_access_name 



p_alias_name 



p_autocommit flag 



p_autolink_flag 



p_backwards_ flag 



p_database_name 



p^genericjlag 



pjndex_name 



pjinkagejype code 



p_relation_name 



p_optional_flag 



p^orderjype code 



p^orderedjlag 



p^physicaLname 



p_sequential flag 



p_nowarn_f!ag 



p_unique_flag 



p_nowarn_flag 



C. LANGUAGE GRAMMAR FOR THE QUIZ ACCESS STATEMENT 

[0055] The fdowing is a representation of a portion of the grammar that is used to parse and process the ACCESS 
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statement in the source file of the example given above. 

K_ACCESS data_structure_ref opt_alias 
{ 

keyword = _RPACCESS ; 

/* Don*t bother writing out the a iu_rpmodule for the 
first */ 

/* access statement as this was beformed by the extended 

*/ 

/* BEGIN MODULE rule. 

*/ 

++ctr . access_id ; 

ctr .block_seq_no = 0 ; 

load_block_id ( &ob j ect_hdr_item , ++ctr . block_id , 
++ctr .block_seq_no) ; 

iu_rpaccess(&object_hdr_item, ctr . access_id, 
data_structure_str, $3, NULL, NULL, FALSE, 

phys ica l_f i le_name , access_subf i 1 e_f lag ) ; 
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•primary^relation = current_ohdr; 
current_relation « current_ohdr ; 



opt_alias: 



/* empty */ 
ALIAS id 



{ 5$ = NULL ; } 
{ $$ = $2 ; } 



data__structure_ref : 
table ref 



NULL) 



{ 



data_structure_str = encode_data_structure ($i , 

access__subfile_flag = FALSE ; 
physical_fii e _narae = NULL ; 
$$ = data_structure_str ; 



$3) ; 



| table_ref IN database ref 



{ 



data_structure_str = encode_data_structure($i, 

access_subfile_flag = FALSE ; 
physical_f ile_naine = NULL ; 
$$ - data_structure str ; 



rule */ 
NULL) ; 



filespec ref 



/* Note: physical_fi le _name set in filespec_ref 
data_structure_str = encode_data_structure ($2 , 
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NULL) ; 



access_subf ile_f lag = TRUE ; 
$$ = data__structure_str ; 

} 

owner_ref 1 . • table_ref 
{ 

data_structure_str = encode_data_structure ( $3 

access_subf ile_f lag = FALSE ; 
physical_f ile_name = NULL ; 
$$ = data_structure_str ; 

} 

owner_ref • ♦ 1 table_ref IN database_ref 
{ 

data_structure_str = encode_data_structure ( $3 

access_subf ile_f lag = FALSE ; 
physical_f ile_name = NULL ; 
$$ = data_structure_str ; 

} 



table_ref: 

id { $$ = $1; } 



$5) ; 



database_ref : 
id 

t 

owner _ref : 

id 
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IDENTIFIER 



{ $$ = $1/ } 



D. 'C API LIBRARY FOR THE IU_RPACCESS FUNCTION 

[0056] The folding represents examp.es of the the C AP. library that is called by the YACC grammar specification. 

/* 

*/ 

iu_rpaccess () 



/*■ 

/*- 



/ 



wt iu_rpacca..< struct obj ec t_hdr *P_object_hdr_item, int 
P_access_id, char *p_relation, char *p_alias, char 
*p_linkage_type, char * P _optional, int p_autolink, char 
*P_Physical_name, int p_subf ile_f lag ) 
{ 

char access_name[MAXFIELDSIZE] = '"• ; 
char database_name[MAXFIELDSIZE] = "» • 
char relation_name[MAXFIELDSI2E] = ; 
char object_name[MAXFIELDSIZE] = "» ; 

if (g_debug_switch == i) 

printf ("iu_rpaccess(p_access_id=%d, p_r e iation=%s, 
p_alias=% s , p_linkage_type=%s, p_optional=%s , 

p_autolink=%d , p_physical_name=%s, 
p_subfil e _flag=%d) \n", 

p_acces S _id, p_relation, p_alias, p_linkage_t ype/ 
P_optional, p_autolink, p_physical_name, 
p_sybf ile_flag) ; 

sprintf (access_name, »ACCESS%d», p_access_id) ; 
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strcpy (relation_name, gettoken (p_relation, 1 " 1 , _LEFT) ) 

if ( p_subf ile_f lag == FALSE ) 
{ 

strcpy ( database_name , gettoken ( gettoken ( p_relat ion , 1 
• , _RIGHT) , 1 " ' , _LEFT) ) ; 

if (strlen(database_nan\e) == 0) 
{ 

/* Check to see if it has already been declared by 
looking */ 

/* up on object_hdr 

*/ 

strcpy (database_name , lookup_ob j ect ( relation_name , 
_RPRELATION, _DATABASE) ) ; 

if (strlen(database_name) == 0) 

strcpy (database_name, "Non Relational") ; 

} 

} 

else 

strcpy (database_name, "Temporary Data") ; 

if (p_alias == NULL) 

strcpy (object_name, gettoken (p_relation, ' " 1 , _LEFT) ) 

else 

strcpy (object_name, gettoken (p_alias , 1 _LEFT) ) ; 

load_ob j ect_hdr (p_ob j ect_hdr_i tem , _QUI Z , _RPACCESS , 
g_j?roject_name, g_module_name, 

database_name, gettoken (p_relation , * ~ ' , _LEFT) , 
object_name, 

decode (_OBJECTJTYPE, "rprelation") , _RPRELATION) ; 
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push_object_hdr (p_object_hdr_item ) ; 

vrite_obj_detail(J*PACCESS, _ACCESS_NAME, access_nam< 
_QUOTE) ; 

if (p_alias != NULL) 

write_obj_detail(_RPACCESS, _ALIAS_NAME, p_alias, 
_QUOTE) ; 

if ( p_subf ile_f lag == TRUE ) 
{ 

vrite_obj_detail(_RPACCESS, _PHYSICAL_NAME, 
p_j?hysical_name , _QUOTE) ; 

wr i t e_obj_detail(_RPRELATION / _RELATIONJTYPE, 
decode (_RELATIONJTYPE, "subfile") , _QUOTE) ; 

} 

if (p_linkage_type != NULL) 

write _°bj_detail(_RPACCESS, _LINKAGEJTYPE, 

decode (_LINKAGEJTYPE, p_linkage_type) , _QUOTE) ; 

if (p_optional != NULL) 

write_obj_detail(__RPACCESS, _OPTIONAL_FLAG , 
decode (_FLAG , p_optional) , _QUOTE) ; 

if (p_autolink == TRUE) 

write_obj_detail (_RPACCESS, _AUTOLINK_FLAG, 
decode (_FLAG, "TRUE") , J2UOTE) ; 

write_obj_detail(_RPMETHOD, _JMETHOD_TYPE , 
decode (_METHOD_TYPE , "retrieve"), _QUOTE) ; 

return 1 ; 
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/* 

*/ 

/* load_ob j ect_hdr ( ) 

*/ 

/* " 

*/ 

load_object_hdr (struct object_hdr *p_object_hdr_item, 
int p_module_type, 
int p_keyword_symbol , 
char *p_pro j ect_name , 
char *p_inodule_naiT\e*, 
char *p_database_name, 
char *p_relation_naitie, 
char *p__object_name, 
char *p_object_type_code, 
int p_object_type) 

{ 

register int v_mid; 

if (g_ - debug_switch == 1) 

pr intf ( " load_ob j ect_hdr ( p_modu le_type=%d , 

p_keyword_symbol=%d, p_project_name=%s, 

p_module_naine=%s, p_database_name=%s , 

p_relation_name=%s, p_object_name=%s , 

p_object_type_code=%s, p_object_type=%d) \n" , 
p_module_type , p_keyword_symbol , p_pro j ect_name , 
p_module_name, p_database_name , p_relation_ name , 

p_ob j ect_name , 

p_ob j ec t_type_code , p_ob j ec t_type ) ; 

v_mid = get_ap i_f unction (p_keyword_symbol) ; 

if (g_f irst_ohdr_created == FALSE) 
{ 
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/* create the fist object header record. */ 

g_object_id = 1; 
g_object_seq_no = 0 ; 
++g__ob j ect_hdr_count ; 
g_f irst_ohdr_created = TRUE; 

} 

else 
{ 

g_object_id++ ; 
g_object_seq_no = 0; 
g_ob j ect_hdr_count ++ ; 

} 

• store_object_hdr (p_object_hdr_iteni, _OBJECT_ID, NULL, 
g_object_id) ; 

store_ob j ect_hdr ( p_ ob j ect_hdr_item , _API_FUNCTION, 
api_f unction [vjrcid] . api_f unction__name, -1) ; 

if (p_module_type == _QUIZ) 
{ 

store_ob j ect_hdr ( p_ob j ect_hdr_item , _PROJECT_NAME , 
p_project_name, -1) ; 

stor e_ob j ect_hdr ( p_ob j ect_hdr_item , _MODULE_NAME , 
pjmodule_name, -1) ; 

if ( gl_f ile_stack_pointer > 0 ) 

s tor e_ob j ect_hdr ( p_ob j ect_hdr_item , 
_ORIGINATING_MODULE , originating_module, -1) ; 

store_object_hdr (p_object_hdr_item, _DATABASE_NAME, 
p_database_name , -1 ) ; 

store_ob j ect_hdr ( p_ob j ect_hdr_item, _RELAT 1 0N_N AME , 
p_relation_name, -1) ; 
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s t ore_ob j ect_hdr ( p_ob j ect_hdr_i tern , _OBJECT_NAME , 
p_object_narae, -1) ; 

store_object_hdr (p_object_hdr_item, _OBJECT_TYPE_CODE, 
p_ob j ect_type_code , -1) ; 

store__ob j ect_hdr ( p_ob j ect_hdr_i t em , _OBJECT — TYPE , 
NULL, p_object_type) ; 
} 

return 1 ; 

} 

/* 

*/ 

/ * store_object_hdr ( ) 

*/ : 

/* 

*/ 

int store_.object_hdr (struct object_hdr *p_ object_hdr_item, 
int p_qb j ect_hdr_type , char *p__char_value, int p_int_value) 

{ 

char *object_hdr_value ; 

if ( g_debug_switch == 1 ) 

printf ( ,, store_object_hdr_item(p_object_hdr_type=%d / 
p_char_value=%s , p_int__value=%d) \n M , 

p_objectJhdr_type, p_char_value , p_int_value) ; 

if ( p_char_value 1= NULL ) 
{ 

object_hdr_value = 
malloc(strlen(gettoken(p_char_jvalue, % ~\$ _LEFT) ) + 1) ; 

strcpy (object_hdr_value, gettoken (p_char_value, ' ~ 1 , 
_LEFT) ) ; 
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} 

switch ( p_object_hdr_type ) 
{ 

case _OBJECT_ID: 

P_object_hdr__item->object_id = p_int_value 
break ; 

case _API_FUNCTION: 

p_object_hdr_item->api_f unction = 
malloc(strlen(object_hdr_value) + 1) ; 

strcpy (p_object_hdr_item->api_f unction, 
object_hdr_value) ; 

break ; 

case _PROJECT_NAME : 

p_object_hdr_itera->project_name = — 
malloc(strlen(object_hdr_value) + 1) ; 

strcpy (p_ob j ect_hdr_i tem->pro j ect_name , 
object_hdr_value) ; 

break ; 

case _MODULE_NAME: 

p_object_hdr_item->module_name - 
malloc(strlen(object_hdr_value) + l) ; 

strcpy (p_ob j ect_hdr_i teni->module_name , 
object_hdr_value) ; 

break ; 

case ORIGINATING MODULE: 
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p_ob j ect^hdr_i t en\->or ig ina t ing_modu le = 
malloc(strlen(object_hdr_value) + 1) ; 

strcpy (p_object_hdr_item->originating_module 
object_hdr_value) ; 

break ; 

case _OBJECT_NAME : 

p_object_hdr__item~>object_name = 
malloc(strlen(object__hdr_value) +1) ; 

strcpy ( p_ob j ect_hdr_item->ob j ect_name , 
object_hdr_value) ; 

break ; 

case _OBJECTJTYPE_CODE: 

p_object_hdr_item->object_type_code = 
malloc(strlen(object_ hdr_value) + 1) ; 

strcpy (p_object_hdr_itein->object_type_code, 
object_hdr_value) ; 

break ; 

case _DATABASE_NAME : 

p_ob j ect_hdr_item->database_name = 
raalloc(strlen(object_hdr_value) + 1) ; 

strcpy (p_ob j ect_hdr_item->database_name , 
object^ hdr_value) ; 

break ; 

case RELATION NAME: 
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p_object_hdr_item->relation_name = 
malloc(strlen(object_hdr_value) + 1) ; 

strcpy (p_object_hdr_item->relation_name, 
ob j ect_hdr_va lue ) ; 



break ; 



case _OCCURS_VALUE: 

p_object_hdr_item->occurs = 
raalloc(strlen(object_hdr_value) + i) ; 

strcpy (p_ob j ec t_hdr__ it era- > occurs , ob ject_hdr_value) 

break ; 

case _BLOCK_ID: 

p_object_hdr_item->block_id = p_int_value ; 
break ; 

case _BLOCK_SEQ_NO: 

p_object_hdr_item->block_seq_/io = p_int_value ; 
break ; 



case _PANEL_ID: 

p_object_hdr_item->panel_id = p__int_value ; 
break ; 



case _OBJECT_ TYPE: 

p_object_hdr_item->object_type = p_int_value ; 
break ; 

case _OBJECT_DTL_COUNT: 

p_object_hdr_item->object_dtl_count = p_int_value ; 
break ; 
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case _INCLUDE_MODULE_FLAG : 

p_object_hdr_item->include_module_f lag = 
p_int_value ; 

break ; 

default: 
break ; 
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retur.n 1 ; 

} 

/* 

_ */ 

/* print_obj_header ( ) 

*/ 

/* — 



void print_obj_header (char *p_f ilespec_str) 
{ 

struct object_hdr *ohdr = first_ohdr; 
int object_count = 0; 
int obj_type = 0 ; 

char *p_compiled_name ; 



long time(), tm = time ((long *)0); 
45 char *ctime() ; 

char block_name [MAXFIELDSIZE] = ; 
char block_seq_no[MAXFIELDSIZE] = ; 

50 

if (g_debug_s witch == 1) 
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printf ( fl print_obj_header() \n») ; 

if ( p_f ilespec_str != NULL ) 
{ 

if (strlen(getto3cen(p_filespec_str / ':«, _righT) ) = 

P_compiled_name = p_f ilespec_str ; 
else 

P_compiled_name = gettoken(p filespec str 
_RIGHT) ; ' ' ' 

} 

fprintf (coreout, " — \n") ; 

fprintf (coreout, •»-- core SOFTWARE CORP. (r, 32 -bit 
PowerHouse %s Parser %s for 80x86 \n» , 
core_parser, core_version) ; 

fprintf (coreout, »~ Copyright (C) CORE SOFTWARE CORP. 
1997-1998. Patent Pending. \n") ; 

fprintf (coreout, All rights reserved. \n») ; 

fprintf (coreout, » — \n") ; 

fprintf (coreout, Automatically generated on: % s » 

ctime(&tm)); 

fprintf (coreout " 

k i- i^out:, - ...was generated by: 

garrywh\n") ; 

fprintf (coreout. 

' ...with version: %s 

(%s)\n'\ core_parser, conversion) ; 
fprintf (coreout, " — \n\n") ; 

do 
{ 

+ +g_comm i t_coun t ; 
++object_count ; 

sprintf(block_name, »BLOCK%d», ohdr->block_id) ; 
sprintf(block_seq_no, »%d», ohdr->block_seq_no) ' ; 
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obj_type = ohdr->object_type ; 

if (g_commit_count == 1) . 
{ 

fprintf (coreout, "Begin\n") ; 

} 

fprintf (coreout, " %s\n", ohdr->api_f unction) ; 
fprintf (coreout, " (\n !l ) ; 

/* Print the column name and value. Logic added to 
control when the */ 

/* comma is printed at the end of the line. If at 
least one detail */ 

/* record exists, then print the line, otherwise check 
to see if */ 

/* the next line is to be printed . 

*/ 

/* always (mandatory) need at least a project name */ 

if (ohdr->object_type == _RPPROJECT) 
{ 

/* when printing the project, no comma is required 

*/ 

if ( ohdr->project_name != NULL ) 

fprintf (coreout , " p_pro ject_name=> • %s 1 \n n , 

ohdr->project_name) ; 
} 

else 
{ 

if ( ohdr->project_name J= NULL ) 

fprintf (coreout, " p_project_name=> 1 %s ' , \n" , 

ohdr->project_name) ; 
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} 

/* if not the _RPPROJECT record, then module name is 
(mandatory) */ 

/* (but not for PDL */ 

if (ohdr->object_type != _RPPROJECT) 
{ 

if ( ohdr->object_type _RPMODULE ) 
{ 

/* As the API is creating ohdr records, it 
stamps the module_name */ 

/* with the source file name (i.e., BF013.QZS). 
When is comes time */ 

/* to generate the API (after parsing), 
determine if a BUILD statement */ 

/* was encountered by the parser. If so, the 
module_name becomes the */ 

/* name (compiled) supplied on the BUILD 
statement. If the module */ 

/* record was created from a BEGIN INCLUDE 
statement, then the */ 

/* module name is the name of the INCLUDE file 

*/ 

if ( ohdr->include_module_f lag == TRUE ) 
fprintf (coreout , " 
p_module_name=> ' %s ' , \n" , ohdr->module_name) ; 
else 

fprintf (coreout , " 
p_module_name=> 1 %s ' , \n" , p_compiled_name) ; 
} 

else 
{ 

if ( p_f ilespec_str J= NULL ) 



26 



EP 0 990 983 A1 



fprintf (coreout , " 
p_module_name=> 1 %s 1 , \n H , p_compiled_name) ; 
} 

} 

if ( ohdr->originating_jnodule != NULL ) 
{ 

/* print the originating module */ 

if (strlen(ohdr->originating_module) > 0) 

{ 

if ( (ohdr->object_dtl_count > 0) || 
(strlen (ohdr->relation_name) > 0)) 
fprintf (coreout, " 
p_originating_jnodule_name=> 1 %s ' , \n fl , ohdr- 
>originating_module) ;.. 

else 

fprintf ( coreout , " 
p_or iginating_module_name=> ' %s 1 \n" , ohdr- 
>originating_module) ; 
} 

} 

/* _RPRPROJECT and _RPMODULE object records cannot 
have any additional properties */ 

if (ohdr->object_type !■« _RPPROJECT && ohdr- 
>object_type 1= _RPMODULE) 
{ 

if (strlen(ohdr->object_name) > 0) 
{ 

if ( (ohdr->object_dtl_count > 0) || 
(strlen(ohdr->object_type_code) > 0)) 

fprintf (coreout, 
p_object_name=> * %s » , \n" , ohdr->object_name) ; 

else 
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f pr intf ( coreout , " 
p_object_name=>'%s , \n", ohdr->object_name) ; 
} 

if (strlen(ohdr->object_type_code) > 0) 
{ 

if (ohdr->object_dtl_count > 0) 
fprintf (coreout, " 
p_object_type_code=> ' %s ' , \n" , ohdr->object_type_code) 
else 

fprintf (coreout, " 
p_object_name=> 1 %s 1 \n", ohdr->object_type_code) ; 
} 

/* print the database_name property */ 
if (strlen(ohdr->database_name) > 0) 
{ 

if ( (ohdr->object_dtl_count > 0) || 
(strlen(ohdr->relation_name) > 0)) 
fprintf (coreout, " 
p_database_name-> 1 %s-' , \n" , ohdr->database_name) ; 

else 

fprintf (coreout, " 
p_database_name=> 1 %s 1 \n" , ohdr->database_name) ; 
} 

/* print the relation_name property */ 
if (strlen(ohdr->relation_nan»e) > 0) 
{ 

if ( (ohdr->object_dtl_count > 0) || 
(strlen(ohdr->object_name) > 0) ) 

fprintf (coreout , " 
p_relation_name=> 1 %s 1 , \n M , ohdr->relation_name) ; 

else 

fprintf (coreout, " 
p_relation_name=> ' %s • \n" , ohdr->relation_name) ; 
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} 

if ( ohdr->block_id > 0) 
{ 

if ( (ohdr->object_dtl_count > 0) || 
(strlen(ohdr->object_type_code) > 0) ) 

f printf (coreout, " 
p_block_name=> 9 %s 1 , \n" , block_name) ; 
else 

f printf (coreout , " p_block_name=> ' %'s 1 \n" , 

block_name) ; 

} 

if ( ohdr->block_seq_no > 0) 
{ 

if ( (ohdr->object_dtl_count > 0) |j 
(strlen(ohdr->object_type_code) > 0)) 

f printf (coreout , " 
p_block_sequence_number=>%s , \n M , block_seq_no) ; 
else 

f printf (coreout, " 
p_block_sequence_nu^lber=>%s\n ,, , block_seq_no) ; 
} 

} 

/* now, print the details */ 

print_obj_detail (ohdr->f irstdtl , ohdr^>object_id, 
ohdr->object_dtl_count) ; 

45 f printf (coreout , 11 );\n n ); 

if (g_commit — count == g_commit_point [ | ohdr->next == 

NULL) 

{ 

f printf (coreout, "End;\n") ; 
f printf (coreout, "/\n\n"); 
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g_commit__count = 0; 

} 

} while ((ohdr = ohdr->next) != NULL) ; 

} 
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E. INTERMEDIARY API FILE 



15 [0057] Once a parser has successfully processed the source file, the following Intermediary API file is generated for 
the above example by the parser. This file will later be used by the API Loader described later. 
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Begin 

iu_rpproject 
( 

p_project_name=> ' Sales History' 

) ; 

End; 
/ 

Begin 

iu_rpmodule 
( 

p_project_name=> 'Sales History 1 f 
p_module_name=> 1 ORDERREP * , 
p_module_type_code=> • 0002 1 , 
p_module_source=> ' orderrep . qzs 1 , 
pjfoodule_sequence_number=>l 

); 

End; 
/ 

Begin 

iu_rpblob 
( 
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p_project_name=> ' Sales History 1 , 
p_module_name=> 1 ORDERREP ' , 
p_f iledir=>'C: \Clients\CSC\RPData 1 , 
p_f i lename=> 1 orderrep . qzs 1 

); 

End; 
/ 

Begin 

iu_rpaccess 
( 

p_project_name=> 1 Sales History 1 , 
p_module_name=> 1 ORDERREP 1 , 
p_object_name=> • SALES_98 1 , 
p_object_type_code=> 1 0039 1 , 
p_block_name=> 1 BLOCK1 • , 
p_block_sequence_number=>l , 
p_database_name=> 1 SALES 1 , 
p_relation_name=> 1 ORDER 1 , 
p_access_name=> 1 ACCESS 1 ■ , 
p_ alias_name=> 1 SALES_9 8 • , 
p_method_type_code=> 1 0012 ■ 

); 

End; 
/ 

Begin 

iu_rpvariable 

( 

p_project_name=>' Sales History* ,~ 
p_module_name=> ' ORDERREP • , 
p_object_name=> ' D_DISCOUNT • , 
p_object_type_code=> • 0054 1 , 
p_block_name=> * BLOCK2 1 , 
p_ block_sequence_number=>l , 
p_variable_name=> • DJDISCOUNT 1 , 
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p_variable_type=> ' 0013 1 , 
- p_item_datatype_code=> 1 0013 1 , 
p_variable_size=> 1 7 ' , 
p_signed_f lag=> ■ 0002 * , 
p_method__type_code=> ' 0005 1 

); 

End ; 
/ 

Begin 

iu_jrpprocedure 
( 

p_pro j ect_name=> 1 Sales History 1 , 
p_module_name=> • ORDERREP * , 
p_ob j ect_name=> ■ PROCEDUREl ' , 
p_object_type_code=> 1 0034 1 , 
p_block_name=> * BLOCK2 • , 
p_block_sequence_number=>2 , 
p_variable_name«> 1 D_DISCOUNT 1 , 
p_procedure_name=> ' PROCEDUREl 1 , 
p_event_f lag=> • 0002 1 , 
p_source_procedure_ type_code=> ' 0007 
p_method_type_code-> 1 0001 1 

); 

End; 
/ 

Begin 

iu_rpevent_detail 
( 

p^projec^name^ 1 Sales History', 
p_module_narae=> ' ORDERREP 1 , 
P_object_name=> ' PROCEDUREl * , 
p_object_type_code=> , 00 34 * , 
p__block_name=> 1 BLOCK2 1 , 
p_block_sequence_number=>2 , 
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p_procedure_name=> ' PROCEDURE1 1 , 
p_event_name=> 1 EVENT 1 1 , 
p_event_sequence_number=>l , 
p_condition_name=> 1 CONDITION1 • , 
p_event_type_code=> 1 0001 1 , 
p_nesting_ level*=>l, 
p_token=> ' if • , 
p_token_type_code=> 1 003 0 1 , 
p_method_type_code=> 1 0001 ' 

) ; 
End; 

/ 

Begin 

iu__rpcondition_detail 
( 

p_pro j ect_name=> 1 Sales History' 
p_module_name=> • ORDERREP 1 , 
p_ob j ect_name=> • PROCEDURE1 ■ , 
p_object_type_code=> 1 003 4 1 , 
p_block_name=> 1 BLOCK 2 • , 
p_block_sequence number=>2 , 
p_procedure_name=> ' PROCEDUREl 1 , 
p_condition_name=> 1 CONDITIONl 1 , 
p_condition__sequence_number=>l , 
p_stack_name=> 1 STACKl 1 , 
p_method_type__code=> 1 0004 1 

); 

End? 
/ 

Begin 

iu_rpstack 
( 

p_project_name=> 'Sales History 1 
p_module_nanie=> 1 ORDERREP 1 , 
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p_object_name=> 'PROCEDURE 1 1 , 
P_°b j ect_type_code=> '0034', 
p_block_name=> ' BLOCK2 * , 
p_block_sequence_number=>2 , 
p_stack_name=> • STACK1 ' , 
p_method_type_code=> 1 0001 1 

); 

End; 
/ 

Begin 

iu_rpstack_detail 
( 

p_project_name=>' Sales History 
p_module_name=> ' ORDERREP • , 
p_ob ject_name=> ■ 0RDER_AMT 1 , 
P_ob j ect_type_code=> 1 004 0 * , 
p_block_name=> • BLOCK2 1 , 
p_block_sequence_number=>2 , 
p_element_name=> » ORDER_AMT 1 , 
P_get_relation_f lag^> ' 0001 • , 
p_stack_naroe=> 1 STACK1 1 , 
p__stack_sequence_number=> 1 , 
p_token=> ' ORDER_AMT ' , 
p_token_type_code=> ' 0020 ' , 
p_method__type_code=> 1 0001 1 

); 

End ; 
/ 

Begin 

iu_rpstack_detail 
( 

P_project_name=> f Sales History' 
p_module_name=> 'ORDERREP ' , 
p_block_name=> ' BLOCK2 * , 
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p_block_sequence_number=>2 , 
p_stack_name=> 1 STACK1 1 , 
p_stack_sequence_number=>2 , 
p_token=> • > 1 ; 

p_token_type^code=> ' 0016 • , 
p_method_type_code=> 1 0001 1 

) ; 

End; 
/ 

Begin 

iu_rpstack_detail 
( 

p_project_name=> 1 Sales History 1 , 
p_module_name=> ! ORDERREP 1 , 
p_ob j ect_name=> • LITERAL1 ' ; 
p_object_type_code=> * 0022 1 , 
p_block_name=> * BLOCK2 ■ , 
p_block_sequence_number=>2 , 
p_literal_name=>'LITERALl ' , 
p_text_value=> f 10000 1 , 
p_stack_name=> ■ STACK1 ' , 
p_stack_sequence_number=>3 , 
p_token=> 1 10000 • , 
p_token_type_code=> 1 0019 1 , 
p_method_type_code=> 1 0001 ' 

); 

End ; 
/ 

Begin 

iu_rpevent_det a i 1 
( 

p_project_name=>' Sales History 1 , 
p_raodule_name=> 1 ORDERREP ' , 
p_object_naine=> 'PROCEDURE! ' , 
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p_object_type_code=> 1 003 4 1 , 
P_block_name=> 1 BLOCK3 ' , 
p_block_sequence_number=>2 , 
p_procedure_name=> 1 PROCEDURE1 ' , 
p_event_name=> • EVENT 1 * , 
p_event_sequence_number=>2 , 
p_event_type_code=> 1 0002 1 , 
p_nesting_level=>l, 
p_related_block_name=> 1 BLOCK2 1 , 

p_related_block_sequence_number 
p_token=> 1 then 1 , 

p_token_type_code=> • 003 1 • , 

p_method_type_code=> 1 0001 1 

) ; 
End; 

/ 

Begin 

iu_rpassignment 
( 

PJpro ject_name=> ' Sales History • t 
p_module__name=> 1 ORDERREP * , 
p_object_name=> 1 D_DISCOUNT 1 , 
p_object_type_code=> ' 0054 1 , 
p_block_name=> 1 BLOCK3 1 , 
P_block_sequence_number=>3 , 
p_variable_name=> 1 D_DISCOUNT ' , 
P„ ass i9nment_type_code=> 1 0003 ' , 
p_assignment_name=> ' ASSIGN1 ' , 
p_stack_name=> • STACK2 ' , 
p_method_type_code=> ' 0002 1 

>; 
End; 

/ 

Begin 
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iu_rpstack 
( 

p_project_name=> ■ Sales History* 
p_module — name=> ' ORDERREP 1 , . 
p_ob ject_name=> ' DJHSCOUNT 1 , 
p_object__type_code=> 1 0054 ' , 
p_block_name=> 1 BLOCK3 ' , 
p_block_sequence_number=>3 , 
p_variable_nante=> 1 D_DISCOUNT 1 , 
p_stack_name=> • STACK2 1 , 
p_method_type_code=> 1 0001 ' 

) ; . 

End; 
/ 

Begin 

. iu_rpstack_detail 
( 

p_project_name=> 1 Sales History 1 
p_module_name=> • ORDERREP ' , 
p_block_name=> ' BLOCK3 1 , 
p_block_sequence_number=>3 , 
p_stack_name=> 1 STACK 2 1 , 
p_stack_sequence_number=> 1 , 
p_token=> ' ( • , 

p_token_type_code=> 1 0006 1 , 
p_method_type_code=> 1 0001 1 

); 

End; 
/ 

Begin 

iu_rpstack_detail 
( 

p_project_name=> 1 Sales History 1 
p_inodule_name=> 1 ORDERREP 1 , 
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p_block_name=> 'BLOCK3 ' , 
P_block_sequence_number=>3 , 
p_stack_name=> • STACK2 ' , 

p_stack_sequence_number=>2 , 
p_token=> • ( • , 

P_token_type_code=> 1 0006 1 , 
p_method_type_code=> 1 000 l ' 

); 

End ; 
/ 

Begin 

iu_rps t a ck_det a i 1 
( 

P_Project_name=> * Sales History', 
p_module_name=> 'ORDERREP • , 
P_°b ject_name=> 1 ORDER_AMT ' , 
p_ob j ect_type_code=> » 004 0 • , 
P__block_name=> * BLOCK 3 ' , 
P_block_sequence_number=>3 , 
p_element_name=> 'ORDER AMT r , 
P_get_relation_f lag=> ' 0001 1 , 
p_stack_name=> 1 STACK 2 ? , 
P_stack_sequence_number=>3 , 
p_token=> r ORDER_AMT 1 , 
p_token_type_code=> 1 0020 1 , 
p_method_type_code=> 1 0001 ' 

); 
End; 
/ 

Begin 

iu_rpstack_detail 
( 

p_project_name=> 1 Sales History 
p_module_name=> • ORDERREP 1 , 
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p_block_name=> 1 BLOCK 3 1 , 
p_block_sequence_number=>3 , 
p_stack_name=> 1 STACK 2 • , 
p_stack_sequence_number=>4 
p_token=> • * 1 , 

p_token_type_code=> f 0010 • , 
p_method_type_code=> 1 0001 1 

); 

End ; 
/ 

Begin 

iu_rpst ack_detai 1 
( 

p_project_name=> ! Sales History' 
p_module_name=> 1 ORDERREP 1 , 
p_object_name=> 1 LITERAL2 ■ , 
p_object_type_code=> 1 0022 1 , 
pJblock_naine=> • BLOCK3 * , 
p_block_sequence_number=>3 , 
p_literal_name=> 1 LITERAL2 1 , 
p_text_value=> 1 100 1 , 
p_stack_name=> ' STACK 2 1 , 
p_stack_sequence_nuinber=>5 , 
p_token=>'l00' , 
p_token_type_code=> ' 0019 1 , 
p_method_type_code=> 1 0001 ' 

); 

End; 
/ 

Begin 

iu_rpstack_deta i 1 
( 

p^project^name^ 1 Sales History 1 
p_module_name=> 'ORDERREP ' , 



39 



EP 0 990 983 A1 



P_block_name=> 1 BLOCK3 1 , 
P_block_sequence_number=>3 , 
p_stack_name=> ' STACK2 * , 

P_stack_sequence_number=>6., 
p_token=> • ) ' , 

p_token_type_code=> • 0007 » , 
P_ in ethod_type_code=> 1 0001 1 

) ; 
End; 

/ 

Begin 

iu_rpstack_detail 
( 

p_project_name=>« Sales History 
p__module_name=> 1 ORDERREP ' , 
p_block_name=> 'BLOCK3 » , 
P_block_sequence_number=>3 , 
p_stack_name=> ' STACK2 1 , 

p_stack_sequence_number=>7 , - 
p_token=> 1 / « , 

p_token__type_code=> r 0011 • , 
p__method_type_code=> 1 0001 1 

); 

End; 
/ 

Begin 

iu_rpstack_detail 
( 

P_P^oject_name=>* Sales History 1 
p_module_name=> ' ORDERREP 1 , 
p_object_name=> 1 LITERAL3 1 , 
p_object_type_code=> ' 0022 • , 
p_block_name=> 'BL0CK3 1 , 
p_block_sequence_number=>3 , 
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p_literal_name=> ' LITERAL3 • , 
p_text_value=> • 100 * , 
p_ stack_name=> 1 STACK2 1 , . 
p_stack_sequence_number=>8 , 
p_token=> f 100' , 
p_token_type_code=> ' 0019 ' , 
p_method_type_code=> 1 0001 1 

); 

End; 
I- 

Begin 

iu_rpstack_deta i 1 
( 

p_pro ject_name=> • Sales History' 
p_module_name=> 1 ORDERREP \ , 
p_block_name=> 1 BLOCK 3 ' , 
p_block_sequence_number=>3 , 
p_stack_name=> 1 STACK2 1 , 
p_stack_sequence_number=>9 , 
p_token=> 1 ) ' , 

p_token_type_code=> * 0007 ' , 
p_method_type_code=> 1 0001 1 

); 

End; 
/ 

Begin 

iu_rpevent__detail 
( 

p_project_name=>' Sales History' 
p_jnodule_name=> 1 ORDERREP ' , 
p_ob ject_name=> ' PROCEDURE1 ' , 
p_ob ject_type_code=> 1 0034 ' , 
p_block_name=> 1 BLOCK4 1 , 
p_block_sequence_number=>4 , 
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P_procedure_name=> ' PROCEDUREl 1 , 
p_event_name=> 1 EVENT 1 ' , 
p_event_sequence_number=>3 , 
p_event_type_code=> ' 0003 1 , 
p_ nesting_level=>l, 
p_related_block_name=> 'BLOCK2 ' , 
p_related_block_sequence_number 
p_token=> 1 else 1 , 
p_token_type_code=> 1 003 2 • , 
p_method_type_code-> ' 0001 1 

) ; 
End ; 

/ 

Begin 

iu_ rpassignment 
( 

p_project_name=> 1 Sales History 1 
p_module_narae=> 'ORDERREP ' , 
p^bject^name^'DJDISCOUNT' , 
p_object_type_code=> 1 0054 1 , 
p_block_naroe=> 1 BLOCK4 ' , 
p_block_sequence_number=>5 , 
p_variable_name=> ' D__DISCOUNT 1 , 
p_assignment_type_code=> ' 0003 ' , 
p_assignment_name=> , ASSIGN2 ' , 
p_stack_name=> r STACK 3 ■ , 
p__method_type__code=> 1 0002 • 

) ; 
End; 

/ 

Begin 

iu_rpstack 
( 

P_project_name=>' Sales History 1 , 
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p_module__name=> ' ORDERREP • , 
p_ob j ect_name=> 1 D_DISCOUNT ' , 
p_object_type_code=>'0054 ' , 
p_block_name=> 9 BLOCK4 1 , 
p_block_sequence_number=>5 , 
p_variable_name=>* ^DISCOUNT' , 
p_stack_name=> ' STACK 3 ■ , 
p_method_type_code=> 1 0001 1 

) ; 
End; 

/ 

Begin 

iu_rpstack_detail 
( 

p_project_name=> • Sales History 1 
p_roodule_name=> • ORDERREP 1 , 
p_object_name=> ' LITERAL4 1 , 
p_object_type_cpde=> , 0022 * , 
p_block_name=> ' BLOCK4 ' , 
p_block_sequence_number=>5 , 
p_literal_name=> 1 LITERAL4 ' , 
p_text_value=> 1 0 1 , 
p_stack_name=> • STACK3 • , 
p_stack_sequence_number=>l , 
p_token=> 1 0 1 , 

P_ token_type_code=> 1 0019 1 , 
p_method_type_code=> * 0001 1 

); 

End ; 
/ 

Begin 

iu_rppanel 
( 

p_project_name=> 1 Sales History 1 
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P_roodule_name=> 'ORDERREP 
p__object_name=> »PANELl 1 , 
p_object_type_code=> ■ 003 0 r , 
p_block_name=> 'BLOCKS 1 , 
P_block_sequence_number=>i , 
p_panel_name=> • PANEL 1 ' , 
P_panel_type_code=> 1 0011 1 , 
p__method_type_code=> 1 0001 ' 

>; 
End; 

/ 

Begin 

iu_rpf i e ld_pr operty 
( 

P_project_name=>» Sales History 1 , 
p_module_name=> • ORDERREP ' , 
P_ob j ect_name=> ' ORDER_ID ' , 
p_object_type_code=>'0040' , 
p_block_name=> ' BLOCKS ■ , 

p_block_sequence_number=>2 , 
p_element_name=> 'ORDER id 1 , 
P_9 e t_relation_f lag=*> • 0001 ' , 
p_panel_name=> ' PANEL1 1 , 
p_f ield_property_name=> » PROPERTY 1 ' 
p_methodjtype_code=> 1 0006 1 

); 

End; 
/ 

Begin 

iu_rpcoordinate 
( 

p_project_name=> 'Sales History', 
pjmodule_name=> ' ORDERREP 1 , 
p_object_name=> ' PROPERTY 1 ' , 
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p_object_type_code=> 1 0015 1 , 
p_block_name=> 1 BLOCKS 1 , 
p_block_sequence_number=>2 , 
p_coordinate_name=>'COORDINATEl ' , 
p_property_name=> 1 PROPERTY 1 ' , 
p_coordinate_type_code=> 1 0004 • , 
p_start_row=> 1 

) ; 

End; 
/ 

Begin 

iu_rpf ield_property 
( 

p_project_name=> 1 Sales History 1 # 
p_module_name=> , ORDERREP' , 
p_ob j ect_name=> 1 ORDER_AMT 1 , 
p_object_type_code=> ' 004 0 1 , 
p_block_name=> 1 BLOCKS 1 , 
p_block_sequence_number=>3 , 
p_element_name=> 1 ORDER_AMT 1 , 
p_get_relation_f lag=> 1 0001 1 , 
p_panel_name=> 1 PANEL1 1 , 
p_f ield_property_name=> ' PROPERTY 2 1 
p_ method_type_code=> 1 0006 1 

); 

End; 
/ 

Begin 

iu_rpcoordinate 
( 

p_project_name=> 'Sales History 1 , 
p_module_name=> 'ORDERREP ■ , 
p_ob ject_name=> 1 PROPERTY2 1 , 
p_ob ject_type_code=> 1 0015 1 , 
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p_block_name=> 1 BLOCKS 1 , 
p_block_sequence^number=>3 , 
p_coordinate_name=> 1 COORDINATE2 1 
P_property_name=> ' PROPERTY2 1 , 
p_coordinate_type_code=> ' 0004 • , 
p_start_row=>l 

); 

End; 
/ 

Begin 

iu__rpf ield_property 
( 

p_pro ject_name=> ■ Sales History v , 
p_mpdule_name=> ' ORDERREP ' , 
P„object_name=> 'D_DISCOUNT' , 
p_object_type_code=> » 0054 1 , 
p_block_name=> ' BLOCKS 1 , 
p_block_sequence_number=>4 , 
P_variable_name=^ , D_DISCOLrNT l , 
p_panel_name=> 1 PANEL1 1 , 
p_f ield_property_name=> 1 PROPERTY3 
p_method_jtype_code=> 1 0006 ' 

); 

End; 
/ 

Begin 

iu_rpcoordinate 
( 

P_project_name=>' Sales History 1 , 
p_module_name=> 'ORDERREP ■ , 
p_ob j ect_name=> 1 PROPERTY 3 1 , 
p_object_type_code=> • 0015 1 , 
p_block_name-> ' BLOCKS 1 , 
P_block_sequence_nuntber==>4 , 
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p_coordinate_name=> 1 COORDINATE3 ' , 
p_property_name=> 1 PROPERTY 3 1 , 
p_coordinate_type_code=> 1 0004 ' , 
p_start_row=>l 

End; 
/ 



F Data Model for Access <& Access Field 

[0058] Figure 3 shows a representation of the portion of the data model that encompasses the ACCESS and. 
ACCESS_FIELDS relations. These entities in the CORE Repository are used to store the information that will be used 
to regenerate the data selection criteria for the target environment. 

G. Oracle API Source Code 

[0059] The following sample API includes the structure and functionality inherent in the remainder of the APIs. Each 
API is programmed with the capability to determine if the action to be executed is an Insert action or an Update action. 
Prior to actually performing the required action, the API's will perform a number of validation steps that establish the 
relationship between the current Object and the remainder of the objects already stored in the CORE repository. 



CREATE OR REPLACE PROCEDURE IU_RPAccess ( 

p_Pr o j ect_Name 

RPProject . Project_Naine%type default null, 
p_Modu 1 e_Name 

RPModule.Module_Name%type default null, 
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p_Originating_Module_Name RPModule. Module_Narae%type 
default null, 

p_Database_Name 

DBDatabase.Database_Name%type default null, 
p_Relation_Name 

DBRelation.Relation_Name%type default null, 
p_Object_Name 

RPObject.Object_Name%type default null, 
p_Ob j ect_Type_Code 

RPObject.ObjectJType_Code%type default null, 
p_method__type_code 

RPMethod.Method_Type_code%type default null, 
p_Debug_switch Varchar2 default 

null, 

p_Alias_Name 

RPAccess. Alias_Name%type default 1 » , 
p_Physical_Name 

DBRelation.Physical_Name%type default null, 
p_Relation_type_code 

DBRelation.Relation_Type_Code%type default Null , 
p_Access_Name 

RPAccess. Access_Name%Type default Null, 
p_Stack__name 

RPStack.Stack_Name%Type Default null, 
p_Index_Name 

RPStack.stack_name%Type Default null, 
p_Project_lD 

RPAccess. Pro ject_lD%type default null, 
p__Module_ID 

RPAccess. Module_lD%type default null, 
p_0r ig i na t ing_Modu 1 e_I D 
RPAccess. Originating_Module_ID%type default null, 
p_Object_ID 

RPAccess. Ob ject_ID%type default null, 
p_Method_ID 

RPAccess. Method_ID%type default null, 
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p_Access_ID 

RPAccess. Access_ID%type default null, 
p_Database_ID 

RPAccess. Database_ID%type default Null , 
p_Relation_ID 

RPAccess. Relation_ID%type default Null , 
p_Block_ID 

RPAccess. Block_lD%type default Null , 
p_Block_Name 

RPCode_Block. Block_Name%type default null, 
p_Block_sequence_Number 
RPMethod.Block_sequence_Number%type default 0, 
p_Linkage_type_code 

RPAccess. Linkage_type_code% type default Null 
p_Backward_Flag 

RPAccess. Backward_Flag%type default Null , 
p_Generic_Flag 

RPAccess. Generic_Flag%type default Null , 
p_Op t i on a 1_F 1 ag 

RPAccess. Optional_Flag%type default Null , 
p_Order_Type_Code 

RPAccess. Order__Type_Code%type default Null 
p_Sequential_Flag 

RPAccess. Sequential_Flag%type default Null 
p_Unique_Flag 

RPAccess. Unique_Flag%type default Null , 
p_Autocommit_Flag 

RPAccess. Autocommit_Flag%type default Null 
p_Autol ink_F lag 

RPAccess. Autolink_Flag%type default Null , 
p_Nowarn_Flag 

RPAccess. Nowarn_Flag%type default Null , 
pJLock_Type_Code 

RPAccess .Lock_Type_Code%type default Null , 
p_Index_ID 

RPAccess. Index_ID%type default Null , 
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p_Stack_ID 

RPAccess. Stack_ID%type default null, 
p_Audit_Creation_Date 

RPAccess. Audit_Creation_Date%type default Null 
p_Aud i t_Mod i f i e d_Da t e 

RPAccess. Audit_Modified_Date%type default Null 
p_Audit_Update__Type_Code 
RPAccess. Audit_Update_Type_Code%type default Null 
p_Audit_Who 

RPAccess. Audit_Who%type default Null , 
p_Audit_Where 

RPAccess. Audit_Where% type default Null ) is 

t_Project_ID 

RPAccess . Pro j ect_ID%type ; 
t_Module_ID 

RPAccess . Module_ID%type ; 
t_Originating_Module_ID 

RPAccess . Or iginat ing _Module_iD%type ; 
t_Object_ID 

RPAccess . Ob j ect_ID%type ; 
t_Method_ID 

RPAccess . Method_ID% type ; 
t_Database_ID 

RPAccess . Database_ID%type ; 
t_Relation_ID 

RPAccess . Relation_ID%type ; 
t_Block_ID 

RPAccess. Block_ID% type default 0 ;/ 
t_Procedure_ID 

RPAccess. Block_ID%type default 0 ; 
t_Index_ID 

RPAccess. Index_ID%type default 0; 
t_Stack_ID 

RPAccess. Stack_ID% type default 0; 
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V_Project_ID 

RPAccess . Pro j ect_ID% type ; 
V_Module_ID 

RPAccess .Module_ID%type; 
V_Or ig inat ing_Modu le_I D 
RPAccess . Originat ing_Module_ID%type ; 
V_Object_ID 

RPAccess . Ob j ect_ID%type ; 
V_Method_ID 

RPAccess. Method_ID%type ; 
V_Block_ID 

RPAccess. Block_ID%type default 0; 
V_Block_sequence_Number 
RPAccess . Block_Sequence_number%type default 
v_Access_Name 

RPAccess . Access_Name%Type ; 
V_Database_ID 

RPAccess . Database^ ID%type ; 
V_Relation_ID 

RPAccess • Relat ion_ID%type ; 
V_Access_ID 

RPAccess . Access_ID%type ; 
V_Method_Type_Code 
RPMethod . Method_Type_Code%type ; 
V_Alias_Name 

RPAccess . Alias_Name%type ; 
v_Linkage_type_code 

RPAccess . Linkage_type_code%type ; 
v_Physical_Name 

DBRelation • Phys ica l_Name%type ; 
v_Re lat ion_type_code 

DBRelation. Relation_Type_Code%type; 
V_Backward_Flag 

RPAccess . Backward_Flag%type ; 
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V_Generic_Flag 

RPAccess . Gener ic_Flag%type ; 
V_Optional_Flag 

RPAccess. Opt ional_Flag%type; 
V_Order_Type_Code 

RPAccess . Order_Type_Code%type ; 
V_Sequential_Flag 

RPAccess -Sequent ial_Flag%type; 
V_Unique_Flag 

RPAccess , Unique_Flag% type ; 
V_Autocommit_Flag 

RPAccess .Autocommi t_Flag% type; 
v_Autolink_Flag 

RPAccess. AutolinK_Flag%type default 
V_Nowarn_Flag 

RPAccess. Nowarn_Flag%type; 
V_Lock_Ty p e_C od e 

RPAccess . Lock_Type_Code%type ; 
V_lndex__ID 

RPAccess . Index_ID% type ; 
v_stack_ID 

RPAccess. Stack_ID%type default 0; 
v_Audit__Creation_Date 

RPAccess . Audi t_Creat ion_Date%type ; 
V_Audit_Modif iedJDate 
RPAccess. Audit_Modified__Date%type; 
V_Audit_UpdateJType_Code 

RPAccess. Audit_Update_Type_Code%type; 
V_Audit_Who 

RP Access. Audi t_Who% type; 
V_Audit_Where 
RPAccess . Audit_Where% type ; 

Zero Number := o; 

Spaces Varchar(04) := * •; 

BEGIN 
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If p_Project_ID is Null or p_project_id 
Then 

Null; 
else 

v_Project_id := p__project_id; 
End If; 

if p_Module_ID is null or p_Module_ID 
Then 

Null; 
else 

v_Module_ID := p_Module_ID; 
End If; 

if p_Originating_Module_ID 
p_Originating__Module_ID = 0 
Then 

Null; 
else 

v_Originating_Module_ID 
p_Originating_Module_ID; 
End If; 

if p_Object_ID is null or p_Object_ID 
Then 

Null; 
else 

v_Object_ID := p_Object_ID; 
End If; 

if p_method_ID is null or p_method_ID 
Then 

Null; 
else 

v_method_ID pjfnethod_ID; 
End If; 



is null or 
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if p_database_ID is null or p_database 
Then 

Null; 
else 

v_database_ID := p_database_ID; 
End If; 

if p_relation_ID is null or p_relation 
Then 

Null; 
else 

v_relation_ID := p_relation_ID; 
End If; 

if P_access_ID is null or p_access_ID 
Then 

Null; 
else 

v_access_ID := p_access_ID; 
End If; 

if p_Block_ID is null or p_Block_ID - 
Then 

Null; 
else 

v_block_ID := p_Block_ID; 
End if; 

if p_Block_sequence_Nuraber is null or 
Block_sequence_Number = 0 
Then 

Null; 
else 

v_Block_sequence_number 
Block_sequence_number ; 
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End If; 

if p__Pro ject_name is Null or p_Project_name = spaces 
Then 

Null; 
Else 

rp_val idat e_Pro j ect ( p_Pr o j ect_name , 
p_Debug_Switch, t_Project_id) ; 

V_Project_ID := t_Project_ID ; 

If P_Debug_Switch ="'■*• 

Then 

DBMS_OUTPUT.PUT_LINE( 'RPACCESS - Project 
Validation = 1 | | t_Project_id) ; 
End If; 
End If; 

IF p_Module_Name is Null or p_module_name = spaces 
Then 

Null; 
else 

rp_validate_Module (t_pro ject_id , p_Module_name , 
p_Debug_Switch, t_Module_id) ; 

V_Module_ID := t_Module_ID ; 

If P_Debug_Switch = 1 Y 1 

Then 

DBMSJDUTPUT.PUT_LINE( 'RPACCESS - Module 
Validation « • J | t_Module_id) ; 
End if; 
End IF; 

IF p_Originating_Module_Name is Null and p_module_name 
<> spaces 
Then 

rp_va 1 idate_Module ( t_pro j ect_id , p_Modu le_name , 
p_Debug_Switch, t_Originating_Module_id) ; 



55 



EP 0 990 983 A1 



V_Originating_Module_ID := t_Originating_Modul e _i D 

7 

If P_Debug_Switch = 1 Y 1 
Then 

DBMSJDUTPUT.PUTJ^INE( 'RPACCESS- Originating 
Module Validation = • | | t_originating_module__id) ; 
End If; 
else 

rp_validate_Module(t_project_id, 
p_Originating_Module_name, p_Debug_Switch, 
t_Originating_Module_id) ; 

V_Originating__Module_ID ' : = t_Originating_Module_ID 

If P_Debug_Switch = 1 Y 1 
Then 

DBMSJ)UTPUT.PUT_LINE( 'RPACCESS- Originating 
Module Validation = ' | | t_origi na ting_module__id) ; 
End If; 
END If; 

If p_object_nartie is null or p_object_name = spaces 
Then 

null; 
else 

rp_validate_Object(t_project_id, t_Module_id, 
t_OriginatingJlodule_id, p_object_name, P_Object_type_code, 
p_Debug_Switch,t_Object_id) ; 

V_Object_ID : = t_Object_ID ; 

If P_Debug_Switch = 'Y' 

Then 

DBMS_OUTPUT.PUT_LINE( 'RPAccess - Object 
Validation = • || t_object_id) ; 
End if; 
End If; 
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If p_Method_Type_code is null or p_method_type_code = 
spaces 

Then 

null; 
else 

rp_validate_Method (t_project_id, t_Module_id, 
t_Originat ing_Module_id , t_ob ject_Id , P_Method_type_code , 
p — Debug_Switch , p_Block_Name, 
p_Block_sequence_number , t_Method__id) ; 

V_Method_ID := t_Method_lD ; 

If P_Debug_Switch = »Y' 

Then 

DBMSJDUTPUT. PUT JUNE ( 'RPACCESS - Method 
Validation = 1 | | t_method_id) ; 
End if; 
End If; 



If p_Block_name is null 
Then 

v_Block_id : = 0; 
Else 

rp_val idate_Code_Block ( t_pro j ect_id , t_Module_id , 
t_Originating_Module_id, p_Block_nanie, p_Debug_Switch , 
t_Block_id, t_Procedure_id) ; 

V_Block_ID := t_Block_ID ; 

If P_Debug_Switch = 'Y' 

Then 

DBMS_OUTPUT.PUT_LINE( 'RPAccess - Validate Code 
Block = • | | t_Block_id) ; 
End If; 
End If; 

If p_Database_name is null or p_database_name = spaces 
Then 

null; 
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else 

- DB_validateJDatabase(p_database_name, 
p_Debug_Switch, t_database_id) ; 

V_Database_ID := t_database_lD ; 

If P_Debug_Switch = 1 y 1 

Then 

DBMS_OUTPUT.PUT_LINE('RPACCESS - Database = ' J 
t_database_id) ; 

End. If; 

End IF; 

If p_Relation_name is null or p_Relation_name = spaces 
Then 

null; 
else 

DB_validate - Relation(t_Database_id,p_Relation_name, 
p_Debug_Switch,t_Module_id f t_Relation_id) ; 

v_relation_id : = t_relation_id; 

If P_Debug_Switch = 'Y* 

Then 

DBMS_OUTPUT.PUT_LINE('RP Access - DBRelation 
Validation = » | | t_relation_id) ; 
End If; 

If V_Relation_id = o 
then 

RP_validate_Relation(t_Project_id, t_Module_id, 
t_originating_module_id, p_relation_name, 
p_Debug_Switch, t_Relation__id) ; 

v_relation_id : = t_relation_id; 

If P_Debug_Switch = "Y 1 

Then 

DBMS_OUTPUT.PUT_LINE(*RPAccess - RPRelation 
Validation = • || t^relat ion_id) ; 
End If; 
End If; 
End If; 
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If P_Stack_name is Null or p_Stack_Name = 1 1 
Then 

Null; 

else 

rp_validate_Stack ( t_pro j ect_id , t_Module_id , 
t_Originating_Module_id, P_Stack_Name, p_Debug_Switch, 
t_stack__id) ; 



If P_Debug_Switch = 'V 1 
Then 

DBMSJ3UTPUT.PUT_LINE( 'RPAccess - Get Stack 



| | t_Stack_id) ; 

End If; 
End If; 

If P_ Index_name is Null or p_Index_Name = 1 ' 
Then 

Null; 

else 

~ rp_validate_Relation_Index ( t_pro j ect_id , 
t_Module_id , t_Or iginat ing_Module_id , P_Index_ Name , 
p_Debug_Switch, t_Index_id) ; 



If P_Debug_Switch = 1 Y ' 
Then 

DBMS_OUTPUT.PUT_LINE( 'RPACcess - Get Index 



v Stack id 



:= t_Stack_id; 



v Index id 



:= t Index_id; 



| | t_Index_id) ; 

End If; 
End If; 



V_access_Name p_access_Name ; 



SELECT 



Project_ID, 
Module_ID, 

Originating_Module_ID, 
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Object_ID, 
Method_ID, 
Access^ID, 
Block_ID, 

Block_Sequence_Number , 

Access_Name , 

Database_ID, 

Relation_ID, 

Alias_Name, 

Index_ID, 

Stack_ID, 

1 inkage_Type_Code , 

Backward_Flag, 

Generic_Flag, 

Optional_Flag, 

Order_Type_Code , 

Sequential_Flag, 

Unique_Flag, 

Autocommit_Flag, 

Autolink_Flag, 

Nowarn_Flag, 

LockJType_Code, 

Audit_Creation_Date , 

Aud i t_Mod i f i ed_Da t e , 

Audit_Update_Type_Code , 

Audit_Who, 

Audit_Where 

v_Project_lD, 

v_Module_ID, 

v_originating_Module_ID, 

v_Object__ID, 

v_Method_ID, 

v_Access_ID, 

v__Block_ID, 

v_Block_Sequence_Number , 
v_Access_Name , 
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FROM 
WHERE 



v_Database_ID, 

v_Relation_ID, 

v_Alias_Name, 

V_Index_ID, 

V_Stack_ID, 

v_linkage_Type_Code, 

v_Backward_F lag, 

v_Generic__Flag , 

v_Optional_Flag , 

v_Order_Type_Code , 

v_Sequential_Flag, 

v_Unique_Flag , 

v_Autocommit_Flag, 

v_au t o 1 ink_F lag , 

v_Nowarn_Flag , 

v_Lpck_Type_Code , 

v_Audit__Creatsion_Date , 

v_Audit_Modif ied_Date , 

v_Audit_Update_Type_Code , 

v_Audit_Who, 

v_Audit_Where 

RPAccess 



Project_ID 
Module ID 



= t_Pro ject_ID and 
= t Module ID and 



Originating_Module_ID = 
t Originating Module ID and 



Object_lD 
Method_ID 
Block id 



= t_Object_ID and 
= t_Method_ID and 
= v Block id and 



Block_Sequence_number = 
p_Block_sequence_Number and 
access name 



p_Access_Name ; 



IF P__Alias_Name is null 
Then 
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null; 
Else 

v_Alias_Name : = p_Alias_Name; 
End If; 

IF P_LinkagejType_code is null 
Then 

null; 
Else 

v_Linkage_Type_Code : = p_Linkagejrype_Code; 
End If; 

IF P_Backward_Flag . is null 
Then 

null; 
Else 

v_Backward_Flag : = p_Backward_Flag ; 
End If; 

IF P_Generic_Flag is null 
Then 



null; 
Else 

v_Generic_Flag := p_Generic_Flag; 
35 End If; 

IF PjDptionalJFlag is null 
Then 

null; 
Else 

v_Optional_Flag := p_Optional_Flag; 
End If; 

45 IF P_Order_Type_Code is null 

Then 

null; 
Else 



vjDrder_Type_Code ;= p_Order jType_Code ; 
End If; 
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IF P_Sequential_Flag is null 
Then 

null; 
Else 

v_Sequential_Flag := p__Sequential_Flag 
End If; 

IF P_Unique_Flag is null 
Then 

null; 
Else 

v_Unique_Flag := p_Unique_Flag; 
End If; 

IF P_Autocommit_Flag is null 
Then 

null; 
Else 

v_Autocommit_Flag := p_Autocoromit_Flag 
End If; 

IF P_Autolink_Flag is null 
Then 

null; 
Else 

v_Autolink_Flag := p_Autolink_Flag; 
End If; 

IF P_Nowarn_Flag is null 
Then 

null; 
Else 

v_Nowarn_Flag := p_Nowarn_Flag; 
End If; 

IF P_Lock_Type_Code is null 
Then 

null; 
Else 

v_Lock_Type_Code : - p_Lock_Type_Code; 
End If; 
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IF P_Index_lD is null 
Then 

null; 
Else 

v_Index_iD := p_lndex_lD; 
End If; 
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IF P_Stack_lD is null 
Then 

null; 
Else 

v_stack_ID := p_stack_ID; 
End If; 

IF P_Audit_Creation_Date is null 
Then 

null; 
Else 

v_Audit_Creation_Date := p,Audit_Creation Date; 
End If; ~ 

IF P_Audit_Modified_Date is null 
Then 



35 null; 

Else 



v_Audit_Modified_Date :^ p_Audit_Modif ied Date; 
End If; 

IF P_AuditJjpdate_Type_Code is null 
Then 



null; 
45 Else 



v_Audit_Update_Type_Code : = 
P_Audit_Update_Type_Code ; 
End If; 

IF P_Audit_Who is null 
Then 
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null; 
Else 

v_Audit_Who := p_Audit_Who; 
End If; 

IF P_Audit_Where is null 
Then 

null; 
Else 

v_Audit_Where :- p_Audit_Where; 
End If; 



UPDATE RPACGESS 
SET 

Access_Name = v_Access_Name , 
Database_ID = v_Database_ID , 
Relation_ID = v_Relation_ID , 
Alias_Name - v_Alias_Name , 
Index_ID = v_lndex_ID, 
Stack_ID = v_Stack_ID, 

Linkage_type_code = v_Linkage_Type_Code , 
Backward_Flag = v_Backward_Flag , 
Generic_Flag = v_Gener ic_Flag , 
OptionalJFlag = v_Optional_Flag , 
Order_Type__Code = v_Order_Type_Code , 
Sequential_Flag = v_Sequential_Flag , 
UniqueJFlag = v_Unique__Flag , 
Autocommit_Flag = v_Autoconmiit_Flag , 
Autolink_Flag = v_Autolink_Flag , 
Nowam_Flag = v_Nowarn_Flag , 
Lock_Type_Code = v_Lock_Type_Code , 
Audit_Creation_Date = v_Audit_Creation_Date , 
Audit_Modif ied_Date = v_Audit_Modif ied_Date , 
Audit_Update_Type_Code = v_Audit_Update_Type_Code ■ 

/ 

Audit_Who - v_Audit_Who , 
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Auditjfhere = v__Audit_where 
WHERE 

Access_lD = v_Access_ID and 

Object^ID = v_Object_ID and 

Method_iD = v_Method_lD and 

Project_ID = v_Project_lD and " 

Originating_Module_ID = v_Originating_Module_ID and 
Module^ID = v__Module_ID and 

Block_id = vjUock_id and 

Block_Sequence_number = P_Block_sequence_Number ; 

EXCEPTION 

WHEN NO_DATA_FOUND THEN 
If v_Object_id = o or 
v_object_id is null 
Then 

IU_RPObject 
( 

p_Project_naroe, 

P^Module^Name, 

p_or ig inat ing_Modu le_name , 

P_Object_Name, 

p_ob j ect_Type_code , 

p_debug_switch 

); 

rp^va 1 ida te_Ob j ect ( t_pro j ect_id , t_Modu le_id , 
t_Originating_Module_id, p_object_name, P_Ob ject_ty pe _code, 
P_Debug_Switch,t_Object_id) ; 

V_Object_ID := t _0bject_ID ; 

If P_Debug_Switch = 'Y' 

Then 

DBMS_OUTPUT.PUT_LINE(«RPAccess - Insert Phase Object 
Validation = • | ( v_object_id) ; 
End If; 
End If; 
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If v_Method_id = 0 or 

v_Method_id is null 
Then 

IU_RPMethod 

( 

p_Pro j ect_name , 

p_Module_Name , 

p_o riginatin g_Modu 1 e_n ame, 

p_Ob j ect_Name , 

p_ob j ect_JType_code , 

p_Method_Type_code , 

p_debug_switch , 

p_Block_Name, 

p__ Block_sequence_number 

); 

rp_validate_Method ( t_pro ject_id , t_Module_id , 
t_Originating_Module_id, t_object_Id, P_Method_type_code , 
p_ Debug__Switch , p_Block_Name , 
p_Block_sequence_Number , t_Method_id) ; 

V_Method__ID := t_Method_ID ; 

If P_Debug_Switch = • Y 1 

Then 

DBMS_OUTPUT.PUT_LINE( 'RPACCESS - Insert Phase Method 
Validation = • | | v_method_id) ; 
End If; 
End If; 

If v_Database_id =0 or v_Database_id is null 
Then 

IU_DBDatabase 

( 

p_Database_name , 
p_debug_s witch 

) ; 

DB_validate__Database (p_database_name, 
p_Debug_Switch, t__database_id) ; 



67 



EP 0 990 983 A1 



V_Database_ID := t_database_ID 

If P_Debug_Switch = ' Y 1 

Then 

DBMSJDUTPUT.PUT_LINE('RPACCESS - Database 
t_database_id) ; 
End IF; 
End If; 

If P_JRelation_name <> 1 * 
then 

IU_RPRelation 
( 

p_Project_name, 
p_Module_Name, 

p_originating_Module_name, 

p_Object__Name, 

p_ob j ect_type_code , 

p_method_typ encode, 

p_Database_Narae, 

p_Relat ion_Name , 

p_Al ias^name , 

p_debug_switch , 

P_Phy s i ca l_name , 

p_Re 1 a t i on_Ty p e_Code 

); 

DB_validate_Relation(t_Database_id, p_relation 
p_Debug_Switch, t_Module_id, t J*elation__id) ; 

v_relation__id : = t_relation_id; 

If P_Debug_Switch = ' Y* 

Then 

DBMSJXJTPUT.PUT_LINE('RPAccess - RPRelation 
Validation = f | ) t_relation_id) ; 
End If; 
End If; 

IF P_Alias_name is null 
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Then 

v_Alias_Name := Spaces; 
Else 

v_Alias_Name := p_Alias_name; 
End If; 

IF P_Linkage_Type_Code is null 
Then 

v_Linkage_Type_Code := Spaces; 
Else 

v_Linkage_Type_Code := p_Linkage_Type_Code; 
End If; 



IF P_Backward_Flag is null 
Then 

v_Backward_Flag Spaces; 
25 Else 

v_Backward_Flag := p_Backward_Flag; 
End If; 



IF P_Generic_Flag is null 
Then 

v_Generic_Flag := Spaces; 
Else 

v_Generic_Flag := p_Generic_Flag ; 
End If; 

IF P_Optional_Flag is null 
Then 

v_Optional_Flag := Spaces; 
Else 

v_Optional_Flag := p_Optional_Flag; 
End If; 



so IF P_order_Type_Code 

Then 



55 



is null 
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v_OrderJType_Code ;= Spaces; 
Else 

v_Order_Type_Code : = p_Order_Type_Code; 
End If; 

IF P_Sequential_Flag is null 
Then 

v__Sequential_Flag := Spaces; 
Else 

v_Sequential_Flag : = p_Sequential_Flag; 
End If; 

IF P_Unique_Flag is null 
Then 

v_Unique_Flag := Spaces; 
Else 

v_Unique_Flag := p_Unique_Flag; 
End If; 

IF P_Autocommit_Flag is null 
Then 

v_Autocommit_Flag := Spaces; 
Else 

v_Autocomrait_Flag := p_Autocommit_Flag ; 
End If; 

IF P_Autolink_Flag is null 
Then 

v_Autolink_Flag := Spaces; 
Else 

v_Autolink_Flag : = p_Autolink_Flag ; ' 
End If; 

IF P_Nowarn_Flag is null 
Then 

v_Nowarn_Flag := Spaces; 
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Else 

v_Nowarn_Flag := p_Nowarn_Flag; 
End If; 

IF P_Lock_Type_Code is null 
Then 

v_Lock_Type_Code := Spaces; 
Else 

v_Lock_Type_Code := p_Lock_Type_Code ; 
End If; 

IF P_Index_ID is null 
Then 

v_Index_ID := Zero; 
Else 

v__Index_ID := p_Index_ID; 
End If; 



IF P_Stack_ID is null 
Then 

30 

v_Stack_ID : = Zero; 
Else 

v_Stack_ID := p_Stack_ID; 
35 End If; 

IF P_Audit_Creation_Date is null 
Then 

40 

v_Audit_Creation_Date := Sysdate; 
Else 

v__Audit_Creation_Date := p__Audit_Creatron_Date; 

*s End If; 

IF P__Audit_Modif ied_Date is null 
Then 

50 

v_Audit_Modif ied_Date := Sysdate; 
Else 
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v_Audit_Modified_Date := p_Audit_Modif iedjDate; 
End If; 

IF P_Audit_Update_Type_Code is null 
Then 

v_Audit_Update_Type__Code ;= Spaces ; 
Else 

v_Audit_Update jType_Code 
p_Audi t_Update__Type_Code ;- 
End If; 



IF P_Audit_Who is null 
20 Then 

v_Audit_Who := Spaces; 
Else 



v_Audit_Who := p_Audit_Who; 
End If; 

IF P_Audit^Where is null 
Then 

v_Audit_Where Spaces ; 

Else 

v_Audit_Where := p_Audit_Where; 
End If; 
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INSERT INTO RPAccess 

VALUES (v__Project_ID, 
v_Module_ID, 

v_Originating_Module_ID, 
v_Object_ID, 
v_Method_ID, 
RPAccess_IDS * NEXTVAL , 
v__block_id, 

v_block_sequence_number , 
v_Access_Name , 
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v_Database_ID, 
v_Relation_ID , 
v_Alias_Name, 
v_Index_ID, 
v_stack_ID, 
v_Linkage_Type_Code, 
v_Backward_Flag , 
v_Generic_Flag , 
v_Optional_FIag, 
v_Order_Type_Code , 
v_Sequential_ Flag, 
v_Unique_Flag , 
v_Autocommit_Flag, 
v_Aut o 1 i nk_F lag, 
v_Nowarn_Flag, 
v_Lock_Type_Code , 
v_Audit_Creation_Date , 
v_Audit_Modif ied_Date , 
v_Audit_Update_Type_Code , 
v_Audit_Who, 
v_Audit_Where) ; 

WHEN OTHERS THEN 

/* Handler which executes for all other errors. */ 
v_ErrorCode := SQLCODE; 

v_ErrorText := SUBSTR ( SQLERRM , 1, 200); 
INSERT INTO log_table (code, message, api, Info) VALUES 
( v_ErrorCode, v_ErrorText, 'RPAccess 1 , "Oracle error 
occurred 1 ) ; 
END IU_RPAccess; 
/ 



H. Data Model structures for the Dynamic Tree view Navigators 

[0060] Figure 4 shows a representation of structures represented in the Data Model which form the cornerstone on 
which the user interface behavior is controlled and managed. For each required node on the tree view, a node and the 
associated information required to determine the data to be displayed and defined and stored in the structures repre- 
sented in this figure. 
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/. Visual Basic Dynamic Tree View Navigator 



[0061] Figure 5 is a screenshot of a tree view. The code-required to create this tree view dynamicaliy (data driven) is 
illustrated in the figure. ' 

[0062] The following code dynamically creates the tree view for the preferred embodiment. This code determines what 
information is to be displayed in the tree view. It references the "CreateNode" procedure (in order to create each node 
in the tree view) which is demonstrated in the description is following this procedure 



Public Sub LoadNode(ByVal strKey As String, ByVal 
strParentRelation As String) 

i 



• This procedure loads the node and adds 2 images into the 
imagelist to be displayed 

• in the treeview. 

' This procedure accepts the following parameters: 

' strKey - The key of the parent node. (Ie. 
">NODE>3>Project_Id>l") 
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■ strParent-Relation - The relation * from which the parent 
information was retrieved. 

1 (Ie. The parent relation is 

RPProject when clicking a Module) 

i — * 
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Dim strSQL As String 

Dim intCol As Integer 

Dim lngld As Long 

Dim imglmage As Listlmage 
■Dim strRef Element As String 

Dim strRef Elements ( ) As typElementlnf o 

Dim intElementCount As Integer 

Dim strSortElement As String 

Dim strSortElements As String 

Dim rsResults As rdoResultset 
Resultset for the reference table info. 

Dim rsNodes As rdoResultset 
Resultset for the node table info. 

Dim strRPNodeKey As String 
the primary key info. 

Dim strOpenPicture As String 
the location of the open icon. 

Dim strClosedPicture As String 
the location of the closed icon. 

Dim strRef erenceRelation As String 
the reference relation. 

Dim IngParentID As Long 
the parent node id. 

Dim strName As String 
the name to display for the node. 

Dim IngParentNodelD As Long 
the node*s parent id. 

Dim IngNodeld As Long 
the node's id. 



Stores 



Stores 



Stores 



Stores 



Stores 



Stores 



Stores 



Stores 
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Dim strSourceRelation As String 
the relation to fetch the source info. 

Dim strPrimaryKey As String 
the elements that make up the PK. 

Dim strRelations As String 
the concatenated source and reference relations. 

Dim IngLastNodeld As Long 
the previous node viewed. 

Dim blnNodeldChanged As Boolean 
if the node has changed. 

Dim strWhereClause As String 
the WHERE clause. 

Dim strWhereClauseFields As string 
that make up the where clause. 
Dim intPos As Integer 
Dim intArrayCount As Integer 
Dim blnAddToArray As Integer 
Dim strPK As string 
Dim strSeperator As String 
Dim blnDistinct As Boolean 
Dim strNodeName As String 
Dim strProcDir As String ' Delete 
Dim strProcFile As String 
Dim strProcedure As String 
Dim strSortType As String 
Dim strOperators As String 

On Error GoTo ADErr 

' If this is a root node,, clear the treeview. 
If Len(strKey) = 0 Then 

tvwTables . Nodes . Clear 

IngParentNodelD = ROOT_NODE 
Else 

IngParentNodelD = GetValue ( ">NODE>" , strKey) 
End If 
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1 Check if a connection to the database exists. 
If gobjDBConnect . rdoDB Is Nothing Then Exit Sub 

Screen. MousePointer = vbHourglass 

1 Reset this value to false. 
pblnCheckedNodeCount - False 

1 Select the Node information from the RPNodes table. 

strSQL = "SELECT Ref erence_Relation , Ref erence_Element , " 

strSQL = strSQL & " Node_Id, Open_Picture , Closed_Picture , 
Sort_Element, " 

strSQL = strSQL & " Node__Relation , Node_E lenient , 
Node_Display_Description, " 

strSQL = strSQL & " Parent_Relation , Parent_Element , 
Value , Seperator, Static_Flag , " 

strSQL = strSQL & M Element_Name, Source_Relation, 
Documentation_Flag, " 

strSQL = strSQL & " Display_Flag, Distinct_Flag, 
Re lat ion_Seper ator , Operator , " 

strSQL = strSQL & " Node_List_Relation , Node_List__XRef , 
Node_Name , " 

strSQL = strSQL & M Externa l_Directory, External_File, 
Procedur e_To_Ca 11" 

strSQL = strSQL & 11 FROM RPNode_Select_Ref erence_View" 

strSQL = strSQL & " WHERE Parent_Node_Id = " & 
IngParentNodelD 

strSQL = strSQL & " AND Tree_Group_Code « " & 
StrToFld (pstrTreeType) 

strSQL = strSQL & " ORDER BY Sequence_Number , 
Distinct__Flag, Sort_Sequence, Node_Sequence" 

Set rsNodes = gobjDBConnect • rdoDB . OpenResultset (strSQL, 
rdOpenForwardOnly , rdConcurReadOnly , rdExecDirect) 
strRPNodeKey = 11,1 
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Do While Not rsNodes.EOF 
Continuation_Point: • if the node changed (meaning 

display static data), return here. 

Set this value to an empty string so that we don't 
pass the incorrect 

■ primary key. Reset the Nodeld to FALSE. 

strPrimaryKey = «« 

strRPNodeKey = 

strWhereClauseFields - "» 

strSortElements = "'• 

Erase strRef Elements ( ) 

blnNodeldChanged = False 

1 Store the values. 

IngNodeld = rsNodes ( "Node_Id" ). Value 

strOpenPicture = rsNodes ( ,, Open_Picture" ). Value & »» 
strClosedPicture = rsNodes ( "Closed^Picture" ). Value & 
— strNodeName = rsNodes ("Node^Name") .Value & 

1 If the Static_Flag = f 000l f , then we are displaying 
SELECT, VARIABLES, LITERALS , etc. 

If rsNodes ("Static^Flag") .Value & = YES_STR Then 

If IngLastNodeld <> rsNodes ( "Node_Id") Then 
IngLastNodeld = rsNodes ( "Node Id") & "" 

strRef erenceRelation = 
rsNodes ("Node_Display_Descript ion") .Value & 

1 If we haven't checked the node count, do it now. 
If pblnCheckedNodeCount = False Then 

If Len(Trim$ (rsNodes (»Node_List_Relat ion") & »'")) 

Then 
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Call CheckNodeCount (strKey , 
rsNodes ("Node_List_Relation ,! ) & n,f , 
rsNodes ("Node_List_XRef M ) & "" ) 
End If 
End If 

1 Used for editable static nodes, such as Original 

Sources. 

1 This allows us to edit the source table which 
contains the BLOB, 

strSourceRelation = rsNodes ( "Source_Relation") . Value 

& 

1 Check if this node is to be displayed. 

If DisplayNode (rsNodes ( M Node_List_XRef M ) .Value & "") 

Then 

On Error Resume Next 

' Load the imagelist with the new items. 

Set imglmage = imlTreePics . Listlmages . Add ( , 
strNodeName & "_Closed", LoadPicture (strClosedPicture) ) 

Set imglmage = imlTreePics . Listlmages . Add ( , 
strNodeName & "_Open n , LoadPicture (strOpenPicture) ) 

strRelations = strSourceRelation & 11 ; " & 
strRef erenceRelation 

1 Create the node. 

strWhereClauseFields = strWhereClauseFields & "<" 
& strOperators 

Call CreateNode( strKey, IngNodeld, strRelations, 
rsNodes ( ,l Node_Display_Description ,, ) . Value , strPr imaryKey , 
strWhereClauseFields , strNodeName) 
End If 
End If 

Else 

1 Store the relevant information for the nodes. 
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strRef erenceRelation = 
rsNodes ("Reference_Relation") .Value & ■ 

strSourceRelation = rsNodes ( "Source_Relation M ). Value & 

» it 

IngLastNodeld = IngNodeld 
strWhereClauseFields = 11 " 

' Fetch all of the element_nair.es that make up the 
primary key. 

• Exit the loop if a new Node_Id is found. 
Do While Not rsNodes.EOF 

If IngLastNodeld <> rsNodes ( M Node_Id" ). Value Then 

• Node Id has changed. 
blnNodeldChanged = True 
Exit Do 

Else 

• Keep looping to fetch the necesary values. 
IngLastNodeld = rsNodes ( M Node_Id M ) . Value 

strRef Element = rsNodes ( M Ref erence_Element" ). Value 

& mi 

strSortElement = rsNodes ( "Sort_Element M ). Value & 

it ti 

1 Check if the array or the string is empty. 
On Error Resume Next 
If UBound( strRef Elements) < 0 And 
Len(Trim$ (strRef Element) ) > 0 Then 

If Err. Number = 9 Then 1 Subscript out of 

range. 

Err .Clear 
End If 

ReDim Preserve strRef Elements ( 0) As 
typElementlnf o 

strRefElements(O) .strElement = strRef Element 
strRef Elements (0) . strSeperator = 
rsNodes ("Seperator") .Value & 



80 



EP 0 990 983 A1 



strRef Elements (0) . strDistinctFlag = 
rsNodes("Di~stinct_Flag") .Value & 

strRef Elements (0) . strDisplayFlag - 
rsNodes("Display_Flag ,r ) .Value & 

strRef Elements (0) . strExternalDir = 
Trim$ (rsNodes ( "External_Directory " ) & '•" ) 

strRef Elements (0) . strExternalFile = 
Trim$ (rsNodesC'External^File") & "") 

strRef Elements (0) . strProcedure = 
Trim$ (rsNodes("Procedurejro_Call M ) & "") 

intElementCount = intElementCount + 1 
End If 

If Len(strSortType) = 0 Then strSortType = "ASC" 

If Len(strSortElements) = 0 And 
Len(Trim$ (strSortElement) ) > 0 Then strSortElements = 
strSortElement & "-" & strSortType & " ? " 

' Check if we want to add the element to the 

array. 

blnAddToArray - True 

For intArrayCount = 0 To UBound (strRef Elements) 
If strRef Elements (intArrayCount) . strElement = 
strRef Element Then 

blnAddToArray = False 
Exit For 
End If 
Next 

' Add the element to the array. 
If blnAddToArray Then 

ReDim Preserve strRef Elements ( intElementCount) 
As typElementlnfo 

strRef Elements (intElementCount) .strElement = 
strRef Element 

strRef Elements ( intElementCount ) . strSeperator = 
rsNodes("Seperator") .Value & 
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strRef Elements ( intElementCount) , strDistinctFlag 
= rsNodes ("Distinc^Flag") .Value & • , " 

strRef Elements (intElementCount) . strDisplayFlag = 
rsNodes ("Display^Flag") .Value & 

strRef Elements (intElementCount) . strExternalDir = 
Trim$ (rsNodes ("ExternalJDirectory") & "") 

strRef Elements ( intElementCount) . strExternalFile 
~ Trim$ (rsNodes ("External_File") & »■») 

strRef Elements ( intElementCount) . strProcedure = 
Trim$ (rsNodes ("Procedure_To_Call") & 

intElementCount = intElementCount + 1 
End If- 

If AddItemToString(strSortElements, 
strSortElement, ";") Then 

strSortType = rsNodes ( "SortjType^Code" ) 
If Len (strSortType) = 0 Then strSortType = "ASC" 
strSortElements = strSortElements & 
strSortElement & & strSortType & ";" 

End If 

1 Element_Name returns the elements that are part 
of the primary key. 

If Trim$ (rsNodes ("Element_Name M ) & rl ") <> Then 
1 Check whether to add the item to the string. 
If AddItemToString(strRPNodeKey, 
rsNodes ("Elemen^Name") .Value, ";») Then 

strRPNodeKey = rsNodes ("Element_Name") . Value & 
";" & strRPNodeKey 
End If 

' Check if fields have been added to the 
WhereClauseFields variable. 

If Len(strWhereClauseFields) Then 

• If there are fields, this ensures that no 
duplicates are added. 
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15 



20 



If InStr(l, strWhereClauseFields, 
rsNodes ("NodeJRelat ion") & rsNodes ( "Relation_Seperator" ) & 
rsNodes ( "Node_Element" ) & rsNodes ("Operator") ) = 0 Then 

strWhereClauseFields = strWhereClauseFields 
& (rsNodes ("Node_Relat ion") & & 
w (rsNodes ("Relation_Seperator") .Value & "") & 

(rsNodes ("Node_Element") & "") & (rsNodes ( "Operator" ). Value 
& "") 

strOperators = strOperators & 
rsNodes ("Operator") & ";" 

If (rsNodes ("Parent_Relat ion") & "") = " " 

Then 

1 Check if the type is a string value. 

'If rsNodes ("Value") .Type > 7 Or 

rsNodes ("Value") .Type < 2 Then 

1 strWhereClauseFields « 

25 strWhereClauseFields & StrToFld( (rsNodes ("Value") & "")) & 

ti . tt 

•Else 

strWhereClauseFields = 
strWhereClauseFields & (rsNodes ( "Value" ) & "") & " ; " 

'End If 
Else 

strWhereClauseFields = 
StrWhereClauseFields & (rsNodes ( "Parent_Relation") & "") & 
(rsNodes ("Relation_Seperator") .Value & "") & 
(rsNodes ("Parent_Element") &"")&";" 
End If 
End If 
Else 

1 Add the first field to the WhereClauseFields 
that is part of the where clause. 

If Len (rsNodes ( "Node_Relat ion") & ""). Then 
strWhereClauseFields = strWhereClauseFields 
so & (rsNodes ("Node_Relation") &"")&. 

(rsNodes ( M Relation_Seperator n ) .Value & "") & 
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15 



30 



35 



40 



50 
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(rsNodes(»Node_Element») & »") & (rsNodes ("operator") .Value 
& "») - 

strOperators = strOperators & 
rsNodes ("Operator") & ;" 

If (rsNodes ("Parent^Relation") & »»•) - « » . 

Then 

'If rsNodesf "Value") .Type > 7 Or 
_ rsNodesf "Value") .Type < 2 Then 

r strWhereClauseFields = 

strWhereClauseFields & StrToFld( (rsNodes( "Value") & "")) & 
ii • it 

•Else 

StrWhereClauseFields = 
strWhereClauseFields & (rsNodes ( "Value") & "») & » ; « 

f End If 
Else 

StrWhereClauseFields = 
StrWhereClauseFields & (rsNodes ( "Parent_Relation") & »») & 
(rsNodes ("Relation_Seperator") .Value & "») & 
(rsNodes ("Parent_Element") & "») Jt ll . ii 
End If 
End If 
End If 
End If 

rsNodes . MoveNext 
End If 
Loop 

On Error Resume Next 

1 Load the imagelist with the new items. 

Set imglmage = imlTreePics . Listlmages . Add ( , 
strNodeName & "^Closed", LoadPicture (strClosedPicture) ) 

Set imglmage = imlTreePics . Listlmages .Add ( , 
strNodeName & »_Open", LoadPicture (strOpenPicture) } 
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• Return the primary key values into this string. We 
will remove any duplicate fields. 

strPK = ReturnPrimaryKey (strRPNodeKey) 

' Select the detailed information from the Source 
Relation, 

strSQL = "SELECT " 

For intArrayCount = 0 To UBound (strRef Elements) 

If UBound (strRef Elements) > 0 And strSQL <> "SELECT 
" Then strSQL = strSQL & ", " 

If strRef Elements ( intArrayCount) . strDist inctFlag = 
YES_STR Then 
' blnDistinct = True 

strSQL = strSQL & "DISTINCT ( " & 
strRef Elements (intArrayCount) .strElement & " ) " 
Else 

strSQL = strSQL & 
Trim$ (strRef Elements ( intArrayCount) . strElement) 
End If 

' Remove duplicates from the primary key. 
strPK = RemoveDuplicates (strPK, 
strRef Elements ( intArrayCount) . strElement) 
Next 

If Not blnDistinct Then 
If Len (strPK) Then 

If strSQL = "SELECT " Then 

strSQL « strSQL & strPK 
Else 

If Right? (strSQL, 2) = 11 , " Then strSQL = 
Left$ (strSQL, Len (strSQL) - 2) 

strSQL « strSQL & " , " & strPK 
End If 
End If 
End If 

strSQL = strSQL & " FROM " & strRef erenceRelation 
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1 Add the WHERE clause of the SQL statement. 
• If no node was clicked (form loaded), then do the 
first part of the IF statement. 
If Len(strKey) = o Then 

If pstrTreeType = PROJECTJTREE Then 

strSQL = strSQL & » WHERE « & Lef t$ ( strRPNodeKey , 
Len(strRPNodeKey) - l) & » = „ & plngPro jectID 
End If 
Else 

Ensure that there is a where clause. 

strwhereclause = ReturnWhereClause (strKey, 

strWhereClauseFields, strParentRelation, strOperators) 

If Trim$ (strwhereclause) <> »»■ Then 

strSQL = strSQL & « WHERE " & strwhereclause 
End If 

End If 

' Add the sort criteria. 
strSQL = strSQL & » ORDER BY 11 & 
ReturnSortElements(strSortElements) 

Set rsResults = 

gobjDBConnect.rdoDB.OpenResultset(strSQL f rdOpenForwardOnly , 
rdConcurReadOnly , rdExecDirect ) 

If rsResults. EOF Then 

If strReferenceRelation = "RPPro ject" Then 
MsgBox "There are no Projects in the system." 
Screen. MousePointer - vbArrow 
Exit Sub 
End If 
End If 



strRelations = strSourceRelation & " & 
strReferenceRelation 
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• . Reset the array 

On Error GoTo ADErr 

Do While Not rsResults. EOF 

strPrimaryKey = 

' Create the primary key. 

For intCol = 0 To rsResults. rdoColumns .Count - 1 
1 Build the primary key from the resultset 
ensuring all applicable fields are used. 

intPos = InStr(l, strRPNodeKey , 
rsResults ( intCol) .Name, vbTextCompare) 
If intPos > 0 Then 
If intPos = 1 Then 

strPrimaryKey = strPrimaryKey & ">" & 
rsResults (intCol) .Name & & rsResults (intCol) .Value 

Else 

If Mid$ (strRPNodeKey, intPos - 1, 1) = ";" 

Then 

strPrimaryKey = strPrimaryKey & ">" & 
rsResults (intCol) .Name & M >" & rsResults (intCol) .Value 
Else 

intPos = InStr( intPos + 1, strRPNodeKey, 
rsResults (intCol) .Name, vbTextCompare) 
If intPos > 0 Then 

strPrimaryKey = strPrimaryKey & M > ,! & 
rsResults (intCol) .Name & ">•' & rsResults ( intCol) .Value 
End If 
End If 
End If 
End If 
Next 

strName « " M 

For intArrayCount - 0 To UBound ( strRef Elements) 
If strRef Elements (intArrayCount) . strDisplayFlag 
NO STR Then 
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If 

Trim$ (strRef Elements ( intArrayCount) . strElement) <> »" Then 

If Len( strName) And 
Len (Trim$ (rsResults (strRef Elements ( intArrayCount) . strElement 
). Value & »»)) > o Then strName = strName & strSeperator 

strName = strName & 
TrimS (rsResults (strRef Elements ( intArrayCount) . strElement) .Va 
lue & 

» If the seperator is a period with no leading 
or trailing spaces, then 

1 don't add the trailing and leading space 
that we do with the other seperators. 

If strRef Elements ( intArrayCount) .strSeperator 

= Then 

strSeperator = " . " 
Else 

strSeperator = " » & 
Trim$ (strRef Elements ( intArrayCount ) . strSeperator) & " " 
End If 
Else 

1 Check if we call the expression editor. 
If strRef Elements ( intArrayCount) . strProcedure 
<> And strName = Then 
strName = 

GetExpression(strRefElements(intArrayCount) .strProcedure, 
strRef Elements ( intArrayCount) . strExternalDir , 
strRef Elements (intArrayCount) -strExternalFile, 
strPrimaryKey, strRef erenceRelation) 
End If 
End If 
End If 
Next 

1 Create the node. 

strWhereClauseFields = strWhereClauseFields & "<" & 
strOperators 
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Call CreateNode(strKey , IngNodeld, strRelations, 
strName, strPrimaryKey , strWhereClauseFields , strNodeName) 
rsResults .MoveNext 
Loop 

End If 

If blnNodeldChanged Then GoTo Continuation_Point 

On Error Resume Next 
rsNodes . MoveNext 

Loop 

rsNodes . Close 

On Error Resume Next 

rsResults . Close 

Screen. MousePointer = vbDefault 
Exit Sub 
ADErr: 

Dim errError As rdoError, strMsg As String 
For Each errError In rdoEngine. rdoErrors 

strMsg = strMsg & errError .Number & 11 11 & 
errError .Description & vbCr 
Next 

Screen. MousePointer = vbArrow 

MsgBox strMsg, vbOKOnly + vbExclamation, App . ProductName 
End Sub 



[0063] The following code is preferably used to create the node (Physically) in the treeview. 
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' Private Sub CreateNode (ByVal strKey As String, ByVal 
IngNodeld As Long, ByVal strRelations As String, ByVal 
strName As String, ByVal strPrimaryKey As String, 
strWhereClauseFields As String, strNodeName As String) 

• This procedure creates the physical node on the treeview 
form. 

Dim nodX As Node ■ Create variable. 

Dim strCurNodeKey As String 

Dim intPos As Integer 

Dim strReferenceRelation As String 

strCurNodeKey = ">NODE> M & IngNodeld 

intPos = InStr(l, strRelations, ";") 

strReferenceRelation = Mid$ (strRelations, intPos + l, 
Len (strRelations) - intPos) 

' If strRPNodeKey is blank, then don't include the next 
statement. 

If Trim$ (strPrimaryKey) <> Then 

If Right$( StrCurNodeKey, l) = ">» Then strCurNodeKey = 
Left$ (StrCurNodeKey, Len ( strCurNodeKey) - 1) 

strCurNodeKey = StrCurNodeKey & strPrimaryKey 
Else 

intPos « instr(l, strKey, »>NODE>", vbTextCompare) 
intPos = InStr(intPos + Len ( ">NODE>") , strKey, ">«) 
On Error Resume Next 

strCurNodeKey = strCurNodeKey & Mid$ (strKey, intPos, 
(Len(strKey) - intPos) + 1) 
End If 

strCurNodeKey = tvwTables. Nodes. Count & strCurNodeKey 
9 If strKey is blank, then the node is a root node. 
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On Error Resume Next 

If Len(strKey) <> 0 Then 

Set nodX = tvwTables. Nodes. Add (strKey, tvwChild, 
strCurNodeKey , strName, strNodeName & "^Closed") 
Else 

Set nodX = tvwTables .Nodes . Add ( , , strCurNodeKey, strName, 
strNodeName & "_Closed n ) 
End If 

nodX.Tag = strRelations & ">" & strWhereClauseFields 
End Sub 



J. Visual Basic Dynamic Property Sheet 

[0064] The following code dynamically creates a Property Sheet for the preferred embodiment of the invention. 
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Private Sub LoadData (ByVal strWhereClause As String) 



1 This procedure loads the data in the grid. If IngValue is 
passed, 

1 then the data is loaded because the user selected an item 
from the 

• cboObjects combo box. 

• The grid contains the following information: 

• Field 0 - Field Name (ie. Project_ID) 

Field 1 - Value (ie. oms for Project_ID = l if that is the 
associated Project_Name) 

1 Field 2 - Control type to be used. (ie. Display value in 
a combo box, text box, elipsis) 

' Field 3 - Value (same as Field 1, but used to compare if 
the fields were changed. ) 
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• Field 4 - Size of field (ie. 10 for Varchar2 ( 10) ) 

1 Field 5 - Data type (ie. Var£har2, Numeric, Timestamp, 

etc. ) 

1 Field 6 - Modifiable (ie. Allow modifications to this 
field?) 

' Field 7 - Primary Key? (ie. Is this field part of the 
primary key? 

1 Field 8 - Actual value from main table. 
1 Field 9 - Source view or table (ie. 
RPCross__Ref erence_Decode_View) 



Dim cl As rdoColumns ' 
rdocolumns collection 

Dim intCurrent As Integer 1 
indexes 

Dim strSQL As String ' SQL 

string. 

Dim rsCrossReference As rdoResultset ' 

Resultset for RPCross__Ref erence_View 

Dim strFieldNAME As String 

Dim typArray() As ptypCrossRef erence 

Dim intCount As Integer 

Dim intCurPosition As Integer 

Dim strValue As String 

Dim blnArrayEmpty As Boolean 

Dim blnAlternateValueFound As Boolean 

Dim intAlternatePosition As Integer 

Dim blnDisplayValue As Boolean 

Dim strWhere As String 

Dim strSource As String 

Dim strElementName As String 

Dim intLessNumRows As Integer 1 If the 

column is not to be displayed, 
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subtract this number from the current row 

On Error GoTo LoadData_ER 
pblnDisplayControl = False 
Call ClearGrid 

grdData.ColAlignment(l) = o • Left align. 
If Len(strWhereClause) Then 

strSQL = Me.SQLCriteria(strWhereClause) 
Else 

strSQL = Me. SQLCriteria (••") 
End If 

• Create the resultset for the table. 

Set rsResult = gobjDBConnect.rdoDB.OpenResultset (strSQL, 
rdopenForwardOnly, rdConcurReadOnly , rdExecDirect) 
Set cl = rsResult. rdoColumns 

1 Fetch the values from the lookup table. 
strSQL = "SELECT * FROM RPCross_Ref erence_View" 
strSQL = strSQL & » WHERE UPPER (Relation_Name) = » i 
UCase(StrToFld(Left$(Me.SourceTable, InStr(l, 
Me.SourceTable, ";") - l) ) ) 

Set rsCrossReference = 

gobjDBConnect . rdoDB.OpenResultset (strSQL, rdopenForwardOnly, 
rdConcurReadOnly, rdExecDirect) 

blnArrayEmpty = True 

Do While Not rsCrossReference. EOF 

blnArrayEmpty = False 

intCount = intCount + l 

ReDim Preserve typAr ray (intCount) 

typArray( intCount) .Control_Type_Code « 
rsCrossReference ( "Control jType_Code H ) .Value & •'" 
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typArray ( intCount) .Display__Flag *= 
rsCrossRef erence ("Display_Flag") .Value & 

typArray (intCount) . Element_Name = 
rsCrossReference("Element_Name") .Value & ' 

typArray (intCount) . Full_English_Desc = 
rsCrossRef erence ( ,, Full_English_Desc ,, ) .Value & 

typArray (intCount) . Ref erence_Group = 
rsCrossRefejrence("Ref erence_Group" ) .Value & 

typArray (intCount) .Modif iable_Flag = 
rsCrossRef erence ("Modif iable__Flag" ) .Value & 

typArray (intCount) . Ref erence_Code = 
rsCrossReference("Reference_Code 11 ) .Value & "" 

typArray ( intCount) . Primary_Key_Flag = 
rsCrossRef erence ( "Primary_Key_Flag ,! ) .Value & "" 

typArray (intCount) .Ref erence_Database = 
rsCrossRef erence ("Ref erence_Database" ) .Value & "" 

typArray ( intCount) . Ref erence_Relation = 
rsCrossRef erence ( "Ref erence_Relation" ) .Value & 1,11 

typArray (intCount) .Ref erence_Element - 
rsCrossReference("Reference_Element") .Value & 11 " 

typArray ( intCount) . Ref erence_Display_Element = 
rsCrossRef erence ( "Ref erence_Display_Element" ) . Value 

typArray (intCount) .NodelD = 
rsCrossReference("Node_Id M ) .Value & 

typArray ( intCount) . ParentNodelD - 
rsCrossRef erence ("Parent_Node_Id") .Value & 11 M 

typArray (intCount) .TreeGroupCode = 
rsCrossReference("Tree_Group_Code") .Value & "" 

rsCrossRef erence. MoveNext 
Loop 

rsCrossRef erence . Close 

Set rsCrossRef erence = Nothing 

' Insert the data into the grid 

For intCurrent = 0 To rsResult. rdoColumns . Count - 1 
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If intCurrent > pintRowsVisible 
new row for each column in 'the 

grdData. Rows = intCurrent + l 
■ rdoColumns collection. 

grdData . RowHeight ( intCurrent 
End If 

On Error Resume Next 
grdData. Row = intCurrent - intLessNumRows 
If Err. Number - 30009 Then • Invalid row value. 

grdData. Rows - intCurrent + 1 - intLessNumRows 
• rdoColumns collection. 

grdData. RowHeight (intCurrent - intLessNumRows) = 280 

grdData. Row = intCurrent - intLessNumRows 

Err. Clear 

On Error GoTo 0 
End If 

1 Store the field name and value to be used later. 

strFieldNAME = cl (intCurrent) . Name 

On Error Resume Next 

strValue = cl ( intCurrent) .Value 

On Error GoTo 0 

grdData. Col = 2 

* For the current field, loop through the array and see i 
the field has any related 

1 values in the cross reference table. This allows us to 
later display the value 

' rather than the code. 

strSource = 0 

intCurPosition =0 

intAlternatePosition =0 

If Not blnArrayEmpty Then 

For intCount = 1 To UBound (typArray) 



- I Then • Add 

- intLessNumRows 

- intLessNumRows) = 280 
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If Trim$(UCase (typArray (intCount) . Element_Name) ) = 
UCase(strFieldNAME) Then 

If typArray (intCount) . Ref erence_Code = strValue Then 
Str Source = RPCROSS_REFERENCE_VIEW 
blnDisplayValue = True 
intCurPosition = intCount 
Exit For 
Else 

strSource = RPCROSS_REFERENCE_VIEW • CV 
End If 

1 If there is a value for the Reference Relation and 
Element, then retrieve this value 

• (description) from the database. This is used when 
displaying ID's from the database. 

If Len(Trim$ (typArray ( intCount) . Ref erence_Relation) ) 
> 0 And Len(Trim$ (typArray (intCount) .Ref erence_Element) ) > 0 
Then 

• If we are getting a blob, then do the following. 
If typArray (intCount) .Control_Type_Code = 
CO NTRO L_BLO B Then 

strSQL = "{CALL RPBlob_Extract (P_Blob_Id=>" & 
strValue & " f P_FileName=> ' " & strValue & ".txt 1 )}" 
Dim intVal As Integer 

intVal = gobjDBConnect.COREExecute(strSQL) 
If intVal <> False Then 
1 Read the textfile. 

Open GetSetting ( "Chameleon" , "Options", 
"Temporary Directory", RetrieveTempDir) & "\" & strValue & 
"•txt" For Binary As #1 

strValue = Input (LOF( 1) , #1) 
Close #1 
End If 
Else 

1 Retrieve the PK values for the table from 
which we are fetching the description. 
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strSQL = "SELECT * FROM 
RPCross_Reference_Decode_View WHERE 1 ' 

strSQL = strSQL & » Node_Id = " & 
typArray(intCount) .NodelD 

strSQL = strSQL & " AND Tree_Group_Code = 

, 0099 ,,t 

Set rsCrossReference = 
gob j DBConnect . rdoDB . OpenResu 1 tset ( strSQL , rdOpenForwardOnly , 
rdConcurReadOnly, rdExecDirect) 

• Select the value from the source table. 

StrSQL = "SELECT » & 
typArray(intCount) . Ref erence_Display_Element 

strSQL = strSQL & " FROM " & 
typArray(int Count) .Ref erence_Relation 

strSQL = strSQL & »' WHERE " 

strWhere = "" 

Do While Not rsCrossReference. EOF 
1 Create the WHERE clause. 
strElementName = »» 
strElementName = 
rsCrossReference ( "Node_Element » ) 

If InStr(l, strWhere, » " & 
(rsCrossReference ( "Parent_Element" ) ) & » = » & 
rsResult (strElementName) ) = o Then 

If Len (strWhere) Then strWhere = strWhere & 

" AND " 

strWhere = strWhere & 
(rsCrossReference ("Parent_Element" ) ) & « = » & 
rsResult (strElementName) 
End If 

rsCrossReference . MoveNext 
Loop 

If Len (strWhere) Then 

strSQL = strSQL & strWhere 
Else 
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strSQL = Lef.tS (strSQL, Len(strSQL) - 7) 
End If 

Set rsCrossRef erence = 
gob j DBConnect . rdoDB . OpenResultset ( strSQL , rdOpenForwardOnly , 
rdConcurReadOnly , rdExecDirect ) 

1 Check if a resultset was populated. 

If Not rsCrossRef erence. EOF Then 

strValue = rsCrossRef erence (0) .Value & " M 

End If 



Concatenate the NODE ID to strSource for later 



use. 



strSource = RPCROSS_REFERENCE_DECODE_VIEW & "-" 
& typArray (intCount) .NodelD 

intAlternatePosition = intCount 
blnAlternateValueFound = True 
End If 
End If 

If typArray (intCount) • Display_Flag = NO_STR Then 

intAlternatePosition = intCount 

blnAlternateValueFound = True 
End If 

If typArray (intCount) .Modif iable_Flag = N0_STR Then 

intAlternatePosition = intCount 

blnAlternateValueFound = True 
End If 

If typArray (intCount) . Primary_Key_Flag = YES_STR 

Then 

intAlternatePosition = intCount 
blnAlternateValueFound = True 
End If 

If typArray (intCount) . Control_Type_Code <> 
CONTROL_TEXT Then 

intAlternatePosition = intCount 
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blnAlternateValueFound = True 
End If 
End If 
Next 
End If 

If intCurPosition - 0 And blnAlternateValueFound = 
Then 

intCurPosition = intAlternatePosition 
End If 

' If no match was found, enter the value from the 
SourceTable, otherwise, use the value 
' from the cross reference table. 
If intCurPosition = o Then 

grdData.Text = CONTROL_TEXT 

grdData.Col = 0 

grdData.Text = strFieldNAME 

grdData.Col = 1 

If cl(intCurrent) .Type = rdTypeTIMESTAMP Then 
grdData.Text = Format (cl (intCurrent) .Value & 
GetSetting ( "Chameleon" , "Options" , "DateFormat" , 
"DD/MM/YYYY") ) 

grdData.Col = 3 

grdData.Text = Format (cl ( intCurrent) . Value & 
GetSetting ("Chameleon" , "Options" , "DateFormat" , 
"DD/MM/YYYY" ) ) 
Else 

grdData.Text = cl ( intCurrent) . Value & 

grdData.Col = 3 
Enter the value in the fourth column as well so that 

grdData.Text = cl ( intCurrent) . Value & "" 
can verify if the value has changed. 
End If 

grdData.Col = 4 
Store the size of the data in this column, so as to 
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10 



20 



If cl (intCurrent) : Type = rdTypeTIMESTAMP Then 

grdData.Text = 19 
Else 

grdData.Text = cl ( intCurrent ). Size & 1 
limit what can be entered into the textbox. 
End If 

grdData.Col = .5 

grdData.Text = cl ( intCurrent ). Type & 
grdData.Col = 6 
grdData.Text - YES_STR 
grdData.Col - 8 

grdData.Text = cl ( intCurrent ). Value & ,IM 
grdData.Col = 9 
grdData.Text = strSource 
Else 

25 If typArray (intCurPosition) . Display_Flag - YES_STR Then 

grdData.Text = 
typArray (intCurPosition) .Control_Type_Code 
grdData.Col =0 
grdData.Text = strFieldNAME 
grdData.Col = 1 

If blnAlternateValueFound = False Or blnDisplayValue 

35 Then 

• If we are to display a description from the 
full_english_desc field. 

blnDisplayValue = False 

40 

grdData.Text = 
typArray (intCurPosition) .Full_English_Desc 
grdData.Col = 3 
45 grdData.Text = 

typArray (intCurPosition) . Full_English_Desc 
Else 

blnAlternateValueFound = False 
If cl( intCurrent) .Type = rdTypeTIMESTAMP Then 
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grdData.Text = Format (strValue , 
GetSetting ( "Chameleon" , "Options" , "DateFormat" , 
"DD/MM/YYYY") ) 

grdData.Col = 3 

grdData.Text = Format (strValue , 
GetSetting ( "PROGNAME" , "Options" , "DateFormat" , 
"DD/MM/YYYY") ) 
Else 

grdData.Text = strValue 
grdData.Col = 3 
grdData.Text = strValue 
End If - 
End If 

grdData.Col = 4 
Store the size of the data in this column, so as to 

If cl (intCurrent) .Type = rdTypeTIMESTAMP Then 
limit what can be entered into the textbox. 
grdData.Text = 19 

Else 

If typArray (intCurPosition) . ControlJType_Code 
CONTROL_BLOB Then 

grdData.Text = 0 
Else 

grdData.Text = cl ( intCurrent) . Size & "" 
End If 
End If 

grdData.Col = 5 

grdData.Text = cl ( intCurrent) .Type & »" 

grdData.Col = 6 

grdData.Text = 
typArray ( intCurPosition) . Modif iable_Flag 

grdData.Col = 7 

grdData.Text = 
typArray ( intCurPosition) . Primary_Key_JFlag 

grdData.Col = 8 

On Error Resume Next 



102 



EP 0 990 983 A1 



grdData.Text = cl ( intCurrent) .Value & "" 
On Error GoTo 0 
grdData.Col = 9 
grdData.Text = strSource 
Else 

intLessNuiaRows = intLessNumRows + 1 
End If 
End If 
Next 

grdData.Col = 0 

If grdData.Text = Then 

grdData.Rows = grdData.Rows - 1 
End If 

1 Reset the column 
grdData.Col =0 
grdData.Row = 0 

• Set the column width. 

grdData.ColWidth(l) = (grdData . Width * 0.6) - 80 

cboCombo. Visible = False 
txtText. Visible = False 
cmdElipsis. Visible = False 

Exit Sub 

LoadData_ER: 

MsgBox Err. Number & " - " fit Err . Description , vbOKOnly + 
vbExclamation, App.ProductName 

End Sub 



K. Code Segment for Forward Engineering Component 

[0065] The following code manages dynamically generates PLVSQL source code based on the objects that have been 
design recovered and stored in the CORE Chameleon repository. This specific excerpt is designed to create the equiv- 
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alent SQL "SELECT" statement component if the newly generated Oracle PL/SQL report. 



CREATE OR REPLACE PROCEDURE RPGEN_GET SELECT ( 

p_project_id 
RPEventJDetail . Project_ID%Type , 

p_module__id 
RPEvent_Detail -Module_ID%Type / 

p_Debug_Switch Varchar2 
Default null , 

p FileDir 



1 c: \core\Terap» , 

p_FileName 
•Report . sql ' ) AS 



VARCHAR2 Default 



VARCHAR2 default 



DBDatabase ♦ Database_Name%Type ; 
DBRelation . Relation_Nanie%Type ; 
DBElement . Element_Name%Type ; 

RPRelation. Alias_Name%Type ; 



v_Database_Name 
v_Relation_Name 
v_Element_Name 
v_Alias_Name 
v_Related_Database_Name 
DBDatabase . Database_Name%Type ; 

v_Related_Relation_Name DBRelation. Relation_Name%Type; 

v_Related_Element_Name DBElement . Element_Name%Type ; 

v_Variable_Name 

RPVariable . Var iable_Name%Type ; 

v_stack_id RPStack . Stack_ID%Type ; 

vjFileHandle UTL_FILE. FILEJTYPE; 

v_Called_Module Varchar2(l) default 1 Y ' ; 

t_Counter Integer default 0; 
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T_expression varchar2 (2000) ; 

Cursor C_RPRELATION_FIELD Is 

SELECT Relation_Name, Alias_Name, Element_Name 

FROM RPRELAT ION_F I ELD_VI EW 

WHERE Project_id = p_project_id AND 

Module_id = p_module__id 



Cursor C_RPAccess Is 

SELECT Relation_Name, Alias_Name 
FROM RPAccess_VIEW 

WHERE Project_id = p_project_id AND 

Module_id = p_module_id 

ORDER BY Access ID; 



Cursor C_RPACCESS_FIELD Is 

SELECT Database_Name, Relation_Name, Element_Name, 

Related_Database_Name, Related_Relation_Name 
Related_Element_Name, Stack_id 

FROM RPACCESS_FIELD_VIEW 

WHERE Project_id = p_project_id AND 

Module_id = p_module_id 

Order By Access_id; 

Cursor C_RPSORT_OPTION Is 

SELECT Relation_Name, Element_Name , Variable_Name 
FROM RPS0RTJDPTI0N_VIEW 

WHERE Projected = p_project_id AND 

Module_id = p_module_id 

Order By SORT_ORDER; 



Begin 



DBMS_OUTPUT. ENABLE (1000000) ; 
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— Get The elements That are to be selected 



v_FileHandle := UTL_FILE. FOPEN(p_FileDir , p_FileName, 'a'); 
Open C_RPRELATION_FIELD; 
t_Expression : = 1 SELECT 

UTL_FILE.PUT_line(v_FileHandle, T_expression ); 
t_expression := 1 

«RPRELATION_FIELD_LOOP» 
Loop 

Fetch C_RPRELATI 0N_F I ELD Into v_Relat ion_Name , 
v_Alias_Name, v_Element_Name; 

Exit RPRELATION_FIELD_LOOP When C_RPRELATIOK_FIELD%NOTFOUND; 



If V_Alias_Name != 1 1 
Then 

T_expression := T_expression~| | 1 
V_Alias_Name | | • . 1 | | v_Element_Name; 
Else 

T_expression := T_expression | | ■ 
V_Relation_Name | | 1 . ' | | v_Element_Name ; 
End If; 



UTL_FILE.PUT_line(v_FileHandle, t_expression ) ; 
^expression := • ' ; 



End Loop RPRELATION_FIELD_LOOP; 
Close C_RPRELATION_FIELD; 



— Get The Relation That are to be selected from 
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Open C_RP ACCESS; 
t_Expression := 1 FROM '; 

UTL_FILE.PUT_line(v_FileHandle, T_expression ); 
t_expression := 1 

«RPACCESS_LOOP>> 
Loop 

Fetch C_RPACCESS Into v_Relat ion_Name , v_Alias_Name; 

Exit RPACCESS_LOOP When C_RPACCESS%NOTFOUND; 

T_expression := T__expression | | ' 1 | | 

V_Relation_Name | | ' ' | | v_Alias_name ; 

UTL_FILE. PUT_line (v_FileHandle, t_expression ) ; 
t_expression := 1 1 ; 

End Loop RP ACCESS JLOOP; 
Close C_RPACCESS; 



— Get The Items That Make up the Where Clause of the select 
statement for the Program 

Open C_RPACCESS_FIELD; 
t_Counter := 0; 
«RPACCESS_FI ELD_L00P» 
Loop 

Fetch C_RPACCESS_FIELD Into v_Database_name , 
V_Relation_name, v_Element_Name, 

v_Related_Database_name , 
V_Related_Relation_name, v_Related_Element_Name, 

v_Stack_id; 

Exit RPACCESS FIELD LOOP When C RPACCESS_FIELD%NOTFOUND ; 
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t_ Counter := t_Counter + 1; 

If t_ Counter = 1 
Then 

t_Expression := ' WHERE '; 

UTL_FILE.PUT_line(v_FileHandle, T_expression ); 
t_expression := 1 » ; 
End If; 

If V_STACK_ID != 0 
Then 

T_expression := T_expression | | ' 1 | | 

V_Relation_Name j | • . 1 | | v_Element_name | | ■ = ' ; 

RP_Get_Stack_Detail ( p_pro j ect_id , p_module_id, 
p_Module_id, v_stack_id, 0, p_Debug_Switch , T_expression , 
v_called_module ) ; 
Else 

T_expression := T_expression j | 1 1 | | 

V_Relation_Name | | • . ' | | v_Element_name | | 1 = ' | | 
V_Related_Relation_Name | | || v_Related_Element_name ; 

End If; 

UTL_FILE.PUT_line(v_FileHandle, t_expression ); 
t_expression 1 • ; 

End Loop RPACCESS_FIELD_LO0P; 
Close C_RPACCESS_FIELD; 



— Get The Sort Options That are to be used In the Program 

Open C_RPSORT_OPTION; 
t_Counter := 0; 
«RPSORT_OPTION_LOOP» 
Loop 
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Fetch C_RPSORT_OPTION Into V_Relation_name , v_Element_Name , 
v_variable_Name ; 

Exit RPSORT_OPTION_LOOP When C_RPSORT_OPTION%NOTFOUND ; 

t_Counter := t_Counter + 1; 

If t_Counter = 1 
Then 

t_Expression := ' ORDER BY 1 ; 

UTL_FILE.PUT_line(v_FileHandle, T_expression ) ; 
t_expression ":= 1 1 ; 
End If; 

If V_Variable_Name != ' ' 
Then 

T_expression := T_expression | | 1 1 | | 

V_Var iable_Name ; 
Else 

T_expression := T_expression | j 1 1 | | 

V__Relation_Name | | ' . 1 j | v_Element_name;. 
End If; 

UTL_FILE.PUT_line (v_FileHandle , t_expression ); 
t_expression :- ■ • ; 

End Loop RPSORT_OPTION_LOOP; 
Close C_RPSORT_OPTION; 



UTL_FILE . FCLOSE ( v_FileHandle) ; 

Return; 

EXCEPTION 
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— Handle the UTL_FILE exceptions meaningfully, and make 
sure 

— that the file is properly closed. 
WHEN UTL_FILE. INVALID_PATH THEN 

UTL_FILE. FCLOSE ( v_FileHandle) ; 
RAISE_APPLICATION_ERROR (-2 0060, 

' RPGen_Get_Select : Invalid 

Path ' ) ; 

WHEN UTL_FILE. INVALID_MODE THEN 
UTL_FILE. FCLOSE (v_FileHandle) ; 
RAISE_APPLICATION_ERROR (-20061, 

1 RPGen_Get_Select : Invalid 

Mode 1 ) ; 

WHEN UTL_FILE. INVALID_FILEHANDLE THEN 
UTL_FILE - FCLOSE ( v_Fi leHandle ) ; 
RAISE__APPLICATION_ERROR(-2 0062 , 

1 RPGen_Get_Select : Invalid File 

Handle ' ) ; 

WHEN UTL_FILE.INVALID_OPERATION THEN 
UTL_FILE. FCLOSE (v_FileHandle) ; 
RAISE_APPLICATION_ERROR(-20063 , 

1 RPGen_Get_Se lect : Inva 1 id 

Operation 1 ) ; 

WHEN UTL_FILE.READ_ERROR THEN 
UTL_FILE. FCLOSE ( v_Fi leHandle) ; 
RAISE_APPLICATION_ERROR (-2 0064, 

1 RPGen_Get__Select : Read Error 1 ); 
WHEN UTL_FILE.WRITE_ERROR THEN 
UTL_FILE. FCLOSE ( v_FileHandle) ; 
RA I SE_APPLI C AT ION_ERROR (-20065, 

' RPGen_Get_Select : Write 

Error 1 ) ; 

WHEN UTL_FILE.INTERNAL_ERROR THEN 
UTL_FILE. FCLOSE (v__Fi leHandle) ; 
RAISE_APPLICATION_ERROR (-2 0066, 
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10 



1 RPGen_Get_Select: Internal 

Error 1 ) ; 

WHEN OTHERS THEN 

UTL_FILE.FCLOSE(v_FileHandle) ; 
RAISE_APPLICATION_ERROR ( -2 0069 , 

1 RPGen_Get_Select : Unknown 

Error ' ) ; 



15 



END RPGEN_GET_SELECT; 
/ 



50 



Generated PL/ SQL Source Code 



20 



25 



The following sample PL/SQL program represents the 
converted report, from its original QUIZ format. All of the 
program code is automatically generated, without any manual 
intervention . 



30 



35 



PROJECT NAME 
PROJECT MANAGER 
PROJECT LEADER 
PROJECT START DATE 
PROJECT DESCRIPTION 



Sales History 



25-AUG-98 
0 



40 



MODULE NAME 
MODULE SOURCE 
MODULE TYPE 
MODULE DESCRIPTION 



ORDERREP 
sales . qzs 
qui 2 
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Prompts 

DECLARE 

CORE SOFTWARE Variables 

v_FileHandle UTL_FILE. FILE_TYPE; 

Variables that hold ..information defined in the 

original report 

D_DISCOUNT_PERCENT numeric ( 2 ) ; 

D_DISCOUNT numeric (7) ; 

Variables that hold information fetched in the cursor 



T_ORDER_ORDER_AMT 
ORDER . ORDER_AMT%Type ; 
T_ORDER_ORDER_ID 
ORDER • ORDER_ID%Type ; 

CURSOR C_Report_Cursor Is 
Select 

ORDER . ORDER_AMT , 
ORDER. ORDER_ID 

From 

ORDER ; 



BEGIN 



Open a file to store output 

V_FileHandle := UTL_FILE. FOPEN("C: \TEMP" , "ORDERREP.TXT"); 
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Open Cursor and Fetch, Exit when no more data 

OPEN C_Report_Cursor ; 
LOOP 

Fetch C_Report_Cursor Into 
T_ORD ER_ORD ER_AMT , 
T_ORDER_0RDER_I D ; 

EXIT WHEN C_Report_Cursor%NOTFOUND; 

Definitions of Variables 

D_DISCOUNT_PERCENT := 7 / 100; 



If T_ORDER_ORDER_AMT > 10000 
then 

DJDISCOUNT := D_DISCOUNT_PERCENT * 
T_ORDER_ORDER__AMT ; 
else 

D_DISCOUNT := - 0; 
End If; 



Conditions to satisfy output criteria 

Write Record to file 

UTL_FILE.PUT_Line( v_FileHandle, T_ORDER_ORDER_ID || 
T_ORDER_ORDER__AMT | | * , • | | DJDISCOUNT) ; 

END LOOP; 



UTL_FILE. FCLOSE (V__FileHandle) ; 

END; 
/ 
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— Code Generation Completed 



[0066] The above has thus described a method of recovering design information of a legacy application program 
using a common set of tokens to represent corresponding elements of a plurality of different application programs which 
are in the same or in different languages, and using a set of the tokens relating to a particular legacy application pro- 
gram to display aspects of the legacy application program or to construct another application program in the same or in 
a different language which is similar to or is modified from the legacy application program. 

[0067] A person understanding this invention may now conceive of alternate embodiments and enhancements using 
the principles described herein. All such embodiments and enhancements are considered to be within the spirit and 
scope of this invention as defined in the claims appended hereto. 

Claims 

1 . A method of recovering design information of a legacy application program comprising: 

(a) parsing an application program to obtain plural parsed program parts, 

(b) storing plural tokens which are common to similarly functioning program parts of various computer lan- 
guages in a database, 

(c) mapping the parsed program parts to corresponding ones of the common tokens in the database, and stor- 
ing the map in the database, and 

(d) using the mapped tokens to generate a modified legacy application, a new application in a same language 
as the legacy application, a new application in a language different from the legacy application, or for display 
of aspects of the legacy or new application via a user interface. 

2. A method as defined in claim 1 , in which the modified legacy application or either new application contains substan- 
tially the same objects, methods and business rules as contained in the legacy application program, devoid of syn- 
tax specific aspects thereof. 

3. A method as defined in claim 1 including storing a distinct knowledge database for each of plural program lan- 
guages, and using one of the knowledge databases and a corresponding one of plural parsers to carry out the pars- 
ing step in respect of a source code language used in the legacy application. 

4. A method as defined in claim 3, in which the step of storing the map includes selecting ones of the common tokens 
which correspond to parsed program parts and storing copies thereof in a separate database or record related to 
the legacy application program. 

5. A method as defined in claim 3, in which the step of storing the map includes selecting ones of the common tokens 
which correspond to parsed program parts and storing pointers to the selected ones of the common tokens in a 
separate database or record related to the legacy application program. 

6. A method as defined in claim 1 including searching the mapped tokens for a particular string, and generating a 
modified legacy application using a modified string in place of the particular string. 

7. A method as defined in claim 6 in which the particular string is comprised of a two character year designation, and 
substituting a four character year designation in place of the two character year designation as the modified string. 

8. A method as defined in claim 1 in which the database is a relational database. 

9. A method of recovering design information of a legacy application program comprising using a common set of 
tokens to represent corresponding elements of a plurality of different application programs which are in the same 
or in different languages, and using a set of the tokens relating to a particular legacy application program to display 
aspects of the legacy application program or to construct another application program in the same or in a different 
language which is similar to or is modified from the legacy application program. 
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10. A method of recovering design information of a legacy application program comprising translating the legacy appli- 
cation program into tokens representing elements of the program, and automatically rewriting the legacy applica- 
tion program using the tokens to define elements to be included in the rewritten program. 

5 11. A method as defined in claim 10 including rewriting the legacy application program in a computer language which 
is different from that of the legacy application program. 

12. A method as defined in claim 10 including modifying at least one parameter of the legacy application program prior 
to or as it is being rewritten. 

10 
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